Среди чисел a, b, c есть хотя бы одна пара взаимно противоположных чисел. Напишите программу в Паскале ABC

Question

Информатика

Валентиныч

14 декабря, 10:48

Среди чисел a, b, c есть хотя бы одна пара взаимно противоположных чисел. Напишите программу в Паскале ABC

+3

Ответы (1)

Знаете ответ на вопрос?

Владилен · Answer 1

Program n1;

label t;

var a, b, c: integer;

begin

readln (a, b, c) ;

if ab then if abs (a) = abs (b) then goto t;

if ac then if abs (a) = abs (c) then goto t;

if bc then if abs (b) = abs (c) then goto t;

writeln ('нет') ;

t:

writeln ('есть') ;

end.