Question

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

Answer 1

Program Vz; 

uses crt;
var a,b,c:real;
begin
clrscr;
write('Введите 3 числа:');
readln(a,b,c);
if((a<>0) and (b<>0) and (a+b=0)) or ((a<>0) and (c<>0) and (a+c=0)) or ((b<>0)and (c<>0) and (b+c=0)) then writeln('Есть такая пара ! ')
else writeln('Нету  таких !');
readkey;
end.