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