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

Question

Информатика

Валентик

24 марта, 16:41

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

+4

Ответы (1)

Знаете ответ на вопрос?

Стюра · Answer 1

Var a, k:integer;

begin

write ('a (>0) = ') ;

readln (a) ;

k:=0;

while a>0 do

begin

k:=k+1;

a:=a div 10;

end;

writeln ('k = ', k) ;

end.

Пример:

a (>0) = 180653

k = 6