В результате выполнения программы по данному алгоритму, получится 8
var s1,s2,a,b: integer; i: integer;begin s1:=0; s2:=0; a:=1; b:=3; for i:=a to b do begin if i mod 2=0 then s2:=s2+i*i else s1:=s1+i; end; s1:=s1+s2; writeln(s1);end.
Т.к. язык не указан, написал на паскале.
На сколько я понял, это должно выглядеть как-то так:
https://pastebin.com/puua5grq
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
Будем ремонтировать следующие опоры : A B D F H J L N O
получим 10 + 5 + 10 + 40+ 30 +50 + 2 + 3 +20 = 170
8)(b∧f)∨(c∧f)∨(f∧(¬a))∨(a∧(¬b)∧(¬c)∧(¬f))