Ответы на вопрос:
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< b then writeln(a,'< ',b); if a=b then writeln(a,'=',b); end; end.
Популярно: Информатика
-
lisovasvitlana1506.06.2021 19:03
-
анастейша141021.10.2021 21:32
-
Милая821.10.2022 04:13
-
misi203.06.2021 23:09
-
дан24324.07.2022 05:06
-
guzel3221111.08.2022 00:59
-
batkia22805.01.2022 04:26
-
Askarabdullaev07.04.2023 23:02
-
vmatveicheva25.08.2021 18:55
-
Dobro11814.06.2022 14:08