НАПИСАТЬ КОД ДЛЯ PASCAL ! [за спам бан] Требуется написать код для :
найти сумму рядом S=1 + + + + ...

ОБЯЗАТЕЛЬНО ИСПОЛЬЗОВАТЬ ЦИКЛ С ПАРАМЕТРАМИ For to Do

Объяснение:

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