Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.