Написать программу которая для заданного натурального числа n вычисляет сумму 1+1

Question

Написать программу которая для заданного натурального числа n вычисляет сумму 1+1

Написать программу которая для заданного натурального числа n вычисляет сумму 1+1/1+2+1/1+2+3+···+1/1+2+···n в паскале .

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var s: real; n,sn,i: integer;begin write('n = '); readln(n); s:=0; sn:=0; for i:=1 to n do begin sn:=sn+i; s:=s+1/(sn); writeln(s); end; writeln('сумма ряда: ',s);end.