СРОЧНО ПО ИНФОРМАТИКЕ!
программа паскаль
через цикл FOR(с предусловием)
1.вычислить сумму ряда S=1+1,5+2+2,5+3+3,5+...+30
(где / - дробь)2.вычислить сумму ряда S= 2+2/1 + 2/2+2/3+2/4...;2/i; с точностью e=0,1

с While!!

1)var i:integer; s:real;begins:=0;for i:=1 to round((30-1)/0.5)+1 do s:=s+i*0.5+0.5;writeln('s = ',s:6:1);end.Результат:s = 914.52)const e=0.1;var i:integer; s:real;begini:=1;s:=2;while 2/i>e do begin s:=s+2/i; i:=i+1; end;writeln('s = ',s:5:2);end.Результат:s = 9.20