Условие: По трем заданным числам выяснить, является ли сумма каких-нибудь двух из них положительной.
Технические условия: Стандартные.
Примеры входных и выходных файлов: Отсутствуют.
Решение: var a,b,c:real;x:boolean; begin write('Введите три числа:'); readln(a,b,c); if a+b>0 then begin writeln('Сумма чисел ',a:1:0,' и ',b:1:0,' положительна!');x:=true;end; if b+c>0 then begin writeln('Сумма чисел ',b:1:0,' и ',c:1:0,' положительна!');x:=true;end; if a+c>0 then begin writeln('Сумма чисел ',a:1:0,' и ',c:1:0,' положительна!');x:=true;end; if x=false then writeln('Положительная сумма не найдена!'); readln; end.
