• Дано целое число. Определить, сколько разрядов оно содержит
    Вывести на экран 1, если число однозначное, вывести на экран 2, если число двузначное, вывести на экран 3, если число трехзначное.
    Входные данные:Во входном потоке одно целое число, которое не превосходит значение 1000.
    Выходные данные:Во входном потоке вывести 1 или 2 или 3
    СРОЧНО

Ответы 1

  • // PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018// Внимание! Если программа не работает, обновите версию!begin  var (n,k):=(ReadInteger,0);  while n>0 do (n,k):=(n div 10,k+1);  Writeln(k)end.
  • Добавить свой ответ

Войти через Google

или

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

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

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