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

Question

Информатика

Роберт

4 октября, 15:53

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

+3

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