Составьте программу (Паскаль) для определения количества цифр в записи произвольного натурального числа. Сейчас проходим while, судя по всему его и надо использовать.

Question

Милия

7 ноября, 12:46

+5

Ответы (1)

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

Настася · Answer 1

Var n, p, k:integer;

begin

readln (n) ;

p:=n;

while p 0 do begin

k:=k+1;

p:=p div 10;

end;

writeln ('k=', k) ;

end.