Формула включений исключений
19 = 16 + 10+ 6 - 5 - 6 - х + 5
х=7
Var a: array [-10..10] of integer;
i: integer;
begin
for i := -10 to 10 do a[i] := random(100);
for i := -10 to 10 do writeln('[', i, '] => ', a[i]);
<span>end.
В Паскале =)</span>
Uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a >0) or (b>0) or (c>0) then writeln('True') else
writeln('False');
end.
Трудно ошибиться. Либо есть сигнал либо его нет.