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

Question

Аглая

24 июня, 16:53

+1

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