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

Question

Милия

2 января, 15:47

+4

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