• Задача Pascal, цикл While
    Ввести целое число и определить, верно ли, что в нем ровно 3 цифры.
    Пример:
    Введите число:123:да

Ответы 1

  • begin   var c := 0;   var x := readinteger('Введите число:');   while x > 0 do begin     x := x div 10;     c := c + 1;   end;   if(c = 3) then write('Да')   else write('Нет'); end.
    • Автор:

      ice queen
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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