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

Question

Информатика

Салтан

20 января, 18:20

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

+2

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