Тема: оператори циклу
№1 Ось зробив програму, але не знаю чи працює вона правильно. Перевірте будь ласка. Саме завдання звучить так: знайти суму n елементів ряду ( з використанням оператора for).
program dsg;
const n=8; x=0.6;
var s,a: real; fact:longint;
i:integer;
begin
s:=1; fact:=1;
for i:=1 to n do
begin
fact:=fact*i;
a:=((sqr(n)+1)/fact)*(exp(n*ln(x/2)));
s:=s+a;
end;
writeln('s=',s:4:2);
readln;
end.№2
Дайте якусь настанову що до створення цієї ж задачі, тільки потрібно знати масив сум S елементів ряду для кожного значення заданої послідовності x(з використанням оператора for). Кожну суму шукати з точністю до e.
формула прикріплена в вигляді зображення
