Составте алгоритм для определения количества цифр в записи числа произвольного натурального числа.

Question

Информатика

Онуфрий

23 марта, 22:34

Составте алгоритм для определения количества цифр в записи числа произвольного натурального числа.

+1

Ответы (1)

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

Ана · Answer 1

Program n1;

var n, m, p, k: longint;

begin

write ('введите n: ') ;

readln (n) ;

m:=n;

k:=0;

while m0 do begin

p:=m mod 10;

K:=K+1;

m:=m div 10;

end;

writeln ('кол-во цифр: ', K) ;

end.