Вопрос: Что не так.. Ошибка:
Встречено ':=', а ожидался оператор (строка 11(g:=e;))
Код:
Program k103;
USES crt;
Var a, n, s:real;
Var e, g:integer;
Begin
SLRSCR;
Writeln ('введите число Е');
Read (e);
S:=0;
n:=e:
g:=e;
While e>0 do begin
if g mod 2=0 then n:=1 else n:=-1;
a:=(g*exp((n-1)*ln(1)))/exp(n*ln(n));
if abs(a)>=e then S:=s+a else S:=s;
e:=e-1;
n:=n-1;
g:=g-1;
end;
Writeln (s:4:2);
ReadKey;
end.
Задание:
А(cнимок прикреплен)