программу на языке паскаль через boolean для решения следущей задаси: определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел.

Question

Информатика

Сергеич

15 ноября, 13:23

программу на языке паскаль через boolean для решения следущей задаси: определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел.

+3

Ответы (1)

Знаешь ответ?

Георгий · Answer 1

Var a, b, c:integer; l:boolean;

begin

writeln ('a, b, c:');

readln (a, b, c);

l: = (a=-b) or (a=-c) or (b=-c);

if l then writeln ('Yes') else writeln ('No');

end.

Пример:

a, b, c:

5 8 - 5

Yes