• Составьте программу на языке Паскаль для определения количества цифр в записи произвольного натурального числа. ( оператор while)

Ответы 1

  • var   n, c: longint;  begin   c := 0;   readln(n);   while (n > 0) do   begin     n := n div 10;     c := c + 1;   end;   write(c); end.
    • Автор:

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

Войти через Google

или

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

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

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