Ответы на вопрос:
Var z, s: integer; begin write('введите числа: '); read(z, s); if z < s then writeln('новые значения: ', #10, 'z=', (z + s) / 2, ' s=', z * s * 2) else if z > s then writeln('новые значения: ', #10, 'z=', z * s * 2, ' s=', (z + s) / 2) else writeln('числа равны'); end.
Популярно: Информатика
-
lanchik0302.04.2023 13:12
-
shah2518.06.2022 16:06
-
E200610.05.2021 00:56
-
ddddsfvxsf16.08.2020 00:41
-
sandra556614.06.2022 17:46
-
Whitewarrior9815.01.2021 15:19
-
malboro315.10.2021 02:51
-
demuazheldasha218.05.2023 09:02
-
karinakrasyuk08.07.2021 08:58
-
vika11119209.03.2022 11:48