• Дано натуральное число , определить количество цифр в нем ( ПАСКАЛЬ )
    СРОЧНО !

Ответы 2

  • vara:string;beginwriteln('Введите число: ');readln(a);writeln('Количество цифр в вашем числе - ',length(a));end.
  • varans, n:integer;BeginRead(n);While (n > 0) do  begin    inc(ans);    n := n div 10;  end;Writeln(ans);end.
    • Автор:

      goonlrp7
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years