Составить программу которая n раз выводила бы на экран 2 случайных числа и находила бы большее из них

Question

Информатика

Муля

20 декабря, 12:36

Составить программу которая n раз выводила бы на экран 2 случайных числа и находила бы большее из них

+3

Ответы (1)

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

Любомир · Answer 1

Var n, a, b, i: Integer;

begin

writeln ('Введите кол-во раз:') ;

readln (n) ;

for i:=0 to n do

begin

a:=random (1000) ;

b:=random (1000) ;

writeln ('1 число: ', a,', 2 число:', b) ;

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

if a
if a=b then writeln (a,'=', b) ;

end;

end.