Question

На языке Pascal ABC
Напишите программу, которая вводит два целых числа, a и b ( a < b ), и выводит через пробел 5 случайных целых чисел на отрезке [ a , b ] .

Входные данные
Входная строка содержит два целых числа a и b , разделённых пробелом. Гарантируется, что a < b .

Выходные данные
Нужно вывести в одной строке через пробел 5 случайных целых чисел на отрезке [ a , b ] .

Answer 1

begin

 var a, b: integer;

 repeat

   (a, b) := ReadInteger2('введите a и b в одной строке через пробел:');

   if a >= b then Println('a должно быть меньше b');

 until a < b;

 

 Randomize;

 loop 5 do

   Print(Random(a, b))

end.