сгенерируйте 3 случайных целых числа в диапазоне от - 20 до + 40 и введите их на экран в одну строчку Паскаль

Question

Арсюша

3 декабря, 16:34

+4

Ответы (1)

Знаете ответ на вопрос?

Абросим · Answer 1

var a, b, c:integer;

begin

randomize;

a:=random (60) - 20;

b:=random (60) - 20;

c:=random (60) - 20;

write (a,' ', b,' ', c) ;

readln;

end;