Ответы на вопрос:
Var a,b,c: integer; begin writeln('введите числа'); readln(a,b,c); if (a = b) and (a = c) then begin writeln(a*10); writeln(b/10); writeln(a+10); end else if (a = c) then begin writeln(a+100); writeln(b+100); writeln(c+100); end else writeln(2*(a+b+c)); end.
Популярно: Информатика
-
OskarWild26.05.2020 15:21
-
maksim5a26.10.2021 16:48
-
Маша007025.01.2021 04:58
-
Rostik999919.12.2021 05:52
-
killir9925.07.2022 17:04
-
lenamakar6714.02.2023 14:28
-
англиский3328.03.2022 15:29
-
Vens1218.04.2020 04:40
-
McMamon07.07.2021 10:24
-
Silestya13.04.2021 06:13