написать программу находящую количество цифр вводимого неотрицательного положительного числа

Question

Информатика

Аполлинария

31 марта, 20:02

написать программу находящую количество цифр вводимого неотрицательного положительного числа

+2

Ответы (1)

Знаете ответ?

Андрюша · Answer 1

Var

a, c : integer;

begin

readln (a) ;

c : = 0;

if (a = 0) then c : = 1

else

while a 0 do

begin

c : = c + 1;

a : = a div 10;

end;

writeln (c) ;

end.