Ответы и объяснения

2014-04-12T17:27:12+04:00

uses crt;
Var n,i:integer;
x,sum:real;
Begin
Writeln('Vvedite n');
readln(n);
Writeln('Vvedite x');
readln(x);
sum:=0;
for i:=1 to 5 do
sum:=sum+(power(x,i*i)/power(2,n));

Writeln('sum=',sum:7:3);
readkey;
end.