Var a,b:integer;d: real;
Begin
Writeln(a,b);
Readln(a,b);
d:=a+b;
If d mod 2=0 then d:=a*b else d:=a/b;
Writeln(a=a);
End.
154
336
Ответы на вопрос:
Популярно: Другие предметы
-
кудряшёв16.10.2020 17:04
-
Nashinvo11.02.2022 09:13
-
Karumi112.09.2021 00:40
-
asti200008.07.2022 02:37
-
mishel788408.12.2020 13:29
-
anasteishamrrr13.11.2022 23:52
-
лол157021.06.2020 20:53
-
ооооооолл15.03.2022 18:16
-
Мандаринка50029.03.2021 12:32
-
kodwaw02.01.2021 02:46