Помогите пожалуйста , я сейчас на уроке очень срочно!!!!
Составьте программу нахождения количество цифр натурального числа n.
Ответы на вопрос
Ответил PopCop312
0
var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
end.
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
end.
Новые вопросы
Химия,
2 года назад
Литература,
2 года назад
Геометрия,
9 лет назад
Математика,
9 лет назад
Математика,
9 лет назад