Question

Нужна помощь с ДЗ по информатике

Паскаль

Вводим целые положительные числа больше 5 пока не введем число 22 ответ на каждое введенное число выводите целые числа от 1 до 22.

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 repeat

   var k := ReadInteger;

   if k = 22 then break;

   if k <= 5 then Println('Число должно быть больше 5')

   else Println(Random(22) + 1)

 until False;

 Println('Приходи еще!')

end.

Пример

7

21

17

11

162342

6

2

Число должно быть больше 5

18

1

22

Приходи еще!