Итерационные алгоритмы. Паскаль авс.

[Света=)]

Всем здрасте=) Надо решить задачку: При заданном n вычислить выражение:

[StudyMen]

Готов решить ваши задачи оперативно, качественно и за приемлимую цену!

E-mail: administrator@studymen.ru
Skype: studymen
ICQ: 639151387
Phone: 8 (926) - 610 - 61 - 95 (Москва)
http://www.studymen.ru/rabota_na_zakaz/

[Angel666]

Всем здрасте=) Надо решить задачку: При заданном n вычислить выражение:

Program vychislenie;

var n, i: integer;
sum, step, rez: real;
begin
Write ('Vvedite n = ')
Readln(n);
sum:=0;
step:=0;
for i:=1 to 41 do
sum:= sum + sin(9 +i)
for i:=1 to (n+20) do
step:= step + 1/n
rez:= sum/Sqr(step);
Writeln(rez);
Readln;
end.

PS: если будут ошибки пиши, не проверяла на паскале.