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

Question

Информатика

Смарагд

16 сентября, 13:35

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

+5

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