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

Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной. предмет основы программирования.

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

Uses Crt;
  var a, b, c: integer;
       Sab, Sac, Sbc: integer;
begin 
ClrScr; 
Write ( a = ); ReadLn(a); 
Write ( b = ); ReadLn(b);
Write ( c = ); ReadLn(c); 
Sab:=a+b;
Sac:=a+c; 
Sbc:=b+c;
 if (Sab>0) or (Sac>0) or (Sbc>0) 
   then WriteLn ( Да  !)
   else WriteLn (  Нет ...);
 ReadLn;
end.