СРОЧНО ПО ИНФОРМАТИКЕ! программа паскаль через цикл FOR(с предусловием) 1.вычислить сумму...

Question

СРОЧНО ПО ИНФОРМАТИКЕ!
программа паскаль
через цикл 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

Comments

For - с параметром, м предусловием - While

---

да while

---

неправильно написал

---

Исправьте условие, пожалуйста

Answer 1

1)
var i:integer; s:real;
begin
s:=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.5

2)
const e=0.1;
var i:integer; s:real;
begin
i:=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

Comments

с While!!