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

Question

Информатика

Петюня

20 февраля, 19:44

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

+5

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