Allonzer
5 год назад
Дано натуральное число , определить количество цифр в нем ( ПАСКАЛЬ )СРОЧНО !
ОТВЕТЫ
Iliana
Oct 24, 2020
var
ans, n:integer;
Begin
Read(n);
While (n > 0) do
begin
inc(ans);
n := n div 10;
end;
Writeln(ans);
end.
ans, n:integer;
Begin
Read(n);
While (n > 0) do
begin
inc(ans);
n := n div 10;
end;
Writeln(ans);
end.
601
Смежные вопросы:
