Среди чисел a,b,c есть хотя бы одна пара взаимно противоположных чисел. Напишите программу в Паскале ABC
136
ОТВЕТЫ
Program n1;
label t;
var a,b,c: integer;
begin
readln(a,b,c);
if alt;gt;b then if abs(a)=abs(b) then goto t;
if alt;gt;c then if abs(a)=abs(c) then goto t;
if blt;gt;c then if abs(b)=abs(c) then goto t;
writeln(нет);
t:
writeln(есть);
end.
label t;
var a,b,c: integer;
begin
readln(a,b,c);
if alt;gt;b then if abs(a)=abs(b) then goto t;
if alt;gt;c then if abs(a)=abs(c) then goto t;
if blt;gt;c then if abs(b)=abs(c) then goto t;
writeln(нет);
t:
writeln(есть);
end.
35
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Самуил
2019-05-24 10:21:25
Nalmezius
Найти сумму чисел кратных 7 в промежутке от 10 ...
2019-05-24 10:19:49
Gigalasn
Как в паскале делать вычитания и умножения? ...
2019-05-24 10:19:02
Radedlel
Растровое изображение, в котором использовалось 8 цветов, было передано ...
2019-05-24 10:15:22