Среди чисел a,b,c есть хотя бы одна пара взаимно противоположных чисел. напишите программу в паскале abc
107
200
Ответы на вопрос:
Program n1; label t; var a,b,c: integer; begin readln(a,b,c); if a< > b then if abs(a)=abs(b) then goto t; if a< > c then if abs(a)=abs(c) then goto t; if b< > c then if abs(b)=abs(c) then goto t; writeln('нет'); t: writeln('есть'); end.
Популярно: Информатика
-
kashalotic2012.03.2020 19:45
-
szhanibekov27.04.2022 13:10
-
zhabinalena101.07.2021 12:59
-
DikaTheBro30.12.2022 00:10
-
лш8ем17.11.2021 12:13
-
ульянка3704.08.2022 00:14
-
Sheva03124.09.2021 10:35
-
ferid909829.08.2020 04:24
-
Ярослав346411.09.2020 06:52
-
Марина1768125.06.2023 18:43