Борисов
5 год назад
Написать программу, реализующую ввод числа и определение его длины.
ОТВЕТЫ
Милена
Oct 24, 2020
Var a,n:integer;
begin
readln(a);
n:=0;
While a>0 do
Begin
a:=a div 10;
n:=n+1;
end;
writeln(n);
end.
begin
readln(a);
n:=0;
While a>0 do
Begin
a:=a div 10;
n:=n+1;
end;
writeln(n);
end.
366
Смежные вопросы:
