Оч много . нужна блок-схема к и модель. сами программы в паскале есть. к первой прога var i,n,s: integer; begin writeln ('введите n'); readln(n); s: =0; for i: = 1 to n do begin s: =s+1/i; end; writeln('сумма равна - ',s); end. ко второй, с квадратов, скинуть не могу. п а м а г и т и.

Grayr2005    3   20.05.2019 23:46    4