Дано натуральное число , определить количество цифр в нем ( паскаль ) !

fourkovioxk812 fourkovioxk812    1   16.09.2019 00:40    1

Ответы
xXDenchykXx1 xXDenchykXx1  04.08.2020 09:19
Vara:string;beginwriteln('Введите число: ');readln(a);writeln('Количество цифр в вашем числе - ',length(a));end.
ПОКАЗАТЬ ОТВЕТЫ
koool3 koool3  04.08.2020 09:19
Var
ans, n:integer;
Begin
Read(n);
While (n > 0) do
  begin
    inc(ans);
    n := n div 10;
  end;
Writeln(ans);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика