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

Question

Арсюша

1 января, 17:00

+1

Ответы (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;