Даны 2 числа, если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. pascal
296
485
Ответы на вопрос:
Var a, b, k: integer; begin readln(a); readln(b); if (a+b)> 10 then writeln(2*a*b) else if (a> b) then begin k: =a; a: =a+b; b: =k-b; end else begin k: =b; b: =b+a; a: =k-a; end; writeln(a, ' ', b); end.
Популярно: Информатика
-
alina24571788729.09.2021 06:21
-
TipsSpeed05.11.2020 08:15
-
ROMAGTTV90019.12.2021 18:43
-
filbert0422.11.2022 05:25
-
Azaliya111111122.06.2020 09:00
-
risik1205super01.10.2021 19:16
-
07Лизочек0724.11.2022 05:49
-
NastyTyan13.08.2020 20:04
-
ulyana151220021428.11.2021 04:38
-
mazyrin91p08sby27.05.2021 02:38