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

Question

Вовуша

26 апреля, 23:59

+2

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