Составьте программу нахождения количество цифр натурального числа n.
Составьте программу нахождения количество цифр натурального числа n.
Гость
Ответ(ы) на вопрос:
ГостьVar n,k : Integer;
Begin
k:=0;
Readln(n);
While n>0 do
Begin
n:=n div 10;
Inc(k);
end;
Writeln('Цфир: ',k);
end.
Не нашли ответ?
Похожие вопросы