Ответы на вопрос:
Var a, b: integer; begin readln(a, b); if a> b then begin b: =b*2; a: = a+1; end else a: =a*2; b: =b+1; writeln(a,' ',b); end.
Популярно: Информатика
-
mashav88213.09.2021 02:07
-
kristinakarpen09.04.2021 13:24
-
denissss222223.10.2021 09:22
-
haruto4220.05.2020 15:16
-
DellXT01.01.2020 08:34
-
katunina2004ox971p02.03.2021 13:24
-
verunyabogachk07.10.2020 21:25
-
Krasoto4kayoy04.02.2023 14:13
-
Al201703.11.2020 12:09
-
Danila2901200614.02.2020 16:32