Ответы на вопрос:
Var a,b: integer; begin writeln('a='); readln(a); writeln('b='); readln(b); if a=b then writeln ('a=b') else begin if (a> b) then writeln('max=',a,' min=', b) else writeln ('max=',b, ' min=', a) end; readln; end.
Популярно: Информатика
-
vladreutenko9930.07.2022 06:11
-
stanislavvolk823.07.2022 17:39
-
jokeaaaaff03.12.2020 13:17
-
FruitAPps05.04.2022 17:23
-
AliceAngelCat12311.02.2020 10:09
-
Марусяняша24.10.2022 16:43
-
bolotovaanna727.07.2020 10:13
-
DuginBorodaIzVaty11.07.2021 07:18
-
zimina3118.07.2021 21:00
-
katy123123123308.04.2021 19:56