Ответы на вопрос:
Var a,b,c: integer; begin readln(a,b,c); if (a=b)and(b=c) then writeln('все числа равны') else begin a: =a-5; b: =b-5; c: =c-5; writeln('a = ',a,' b = ',b,' c = ',c); end; end. пример: 7 5 6 a = 2 b = 0 c = 1
Популярно: Информатика
-
Белоснежка33325.12.2021 09:42
-
FACE09108.02.2020 02:32
-
1BYRYNDYK101.08.2022 04:55
-
Ленабогатова105.04.2021 07:46
-
FAKOI14.07.2022 08:55
-
евака212.04.2023 17:30
-
marinabelousov222.09.2022 05:25
-
elenaklass113.07.2022 14:16
-
0987mnbv25.04.2020 16:34
-
ммммм8922.03.2023 18:26