Составьте программу, подсчитывающую количество цифр вводимого вами целого неотрицательного числа. Можно использовать операцию целочисленного деления - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
a:longint;
kol:integer;
begin
writeln('vvedite chislo');
readln(a);
repeat
a:=a div 10;
inc(kol);
until a=0;
writeln('kolichestvo cifr=',kol);
end.

Похожие записи/страницы:

Leave a Comment