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

aijamalkamalova aijamalkamalova    3   20.05.2019 09:10    0

Ответы
Braīŋľÿ Braīŋľÿ  13.06.2020 17:44

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика