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

Question

Информатика

Беата

11 сентября, 05:43

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

+3

Ответы (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.