срочно нужно реализовать программу...

[LoL]

1. Реализуйте программу, которая вычисляет для заданного сумму:
1+1/(2)^4 +1/(3)^4 .... +1/(n)^4

[Whiplash]

Пожалуй, что так:

Program Sum_Of_N;
Var
  Sum: Real;
  N, i: Integer;

Begin
  Write('Количество членов последовательности: ');
  ReadLn(N);
  Sum:=1;
  for i:=2 to N do
    Sum:=Sum + (1 / sqr(sqr(i)));
  Write('Сумма N членов последовательности: ',Sum:3:3);
  ReadLn;
End.

[alex_fcsm]

var sum:real;
    i,n:integer;
    
begin
readln(n);
sum:=0;
for i:=1 to n do
  sum:=sum+1/(exp(ln(i) * 4));
writeln(sum:6:4);
end.

[Google[Bot]]

var
 i,n:integer;
 s:real;
begin
n:=?;
s:=1;
for i:=2 to n do
  s:=s+1/(i*i*i*i);
writeln(s:3:4);
end.

[LoL]

огромное спасибо....