Даны 2 числа, проверить являются ли они взаимопротивоположными
Даны 2 числа, проверить являются ли они взаимопротивоположными
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var
a,b: integer;
begin
clrscr;
read (a,b);
if (a=-b) or (b=-a) then
writeln ('True')
else
writeln ('False');
readln ();
end.
Не нашли ответ?
Похожие вопросы