Помогите пожалуйста , я сейчас ** уроке очень срочно!!!!Составьте программу нахождения...

0 голосов
26 просмотров

Помогите пожалуйста , я сейчас на уроке очень срочно!!!!
Составьте программу нахождения количество цифр натурального числа n.


Информатика (14 баллов) | 26 просмотров
Дан 1 ответ
0 голосов

Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
end.

(4.7k баллов)