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

Question

Сергеич

8 августа, 00:04

+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.