Даны два целых числа от - 40000 до 40000. Вывести их в порядке возрастания.

Question

Информатика

Смарагд

31 июля, 09:12

Даны два целых числа от - 40000 до 40000. Вывести их в порядке возрастания.

+3

Ответы (1)

Знаете ответ?

Рая · Answer 1

Var a, b:integer;

Begin

randomize;

a:=random (80001) - 40000;

b:=random (80001) - 40000;

if a>b then writeln (b,', ', a)

else writeln (a,', ', b) ;

End.