Информатика, опубликовано 2018-08-22 18:48:52 by Гость
Написать программу которая для заданного натурального числа n вычисляет сумму 1+1/1+2+1/1+2+3+···+1/1+2+···n в паскале .
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.