Решить информатику, и если не сложно объясните, как решать, var s, k: integer; begin s: =0 for k: =1 to 8 do s: =s+k; writeln(s) end. var s, k: integer; begin s: =20; k: =0; while s < 60 do begin s: =s+4; k: =k+1 end; writeln(k) end. var s, k: integer; begin s: =100 k: =8; repeat s: =s-k; k: =k-1; until k< 0; writeln(s) end.