na Paskale pojaluista

[Zhaman]

Очень прошу помогите

[newerow1989]

а)

var i,n,s:integer;
begin
   n:=5;
   s:=1;
   For i:=1 to n do
      s:=s*2;
   Writeln(s);
   Readln;
end.

[newerow1989]

а)

var i,n,s:integer;
begin
   n:=5;
   s:=1;
   For i:=1 to n do
      s:=s*2;
   Writeln(s);
   Readln;
end.

б)

var i,n,s:integer;
begin
   n:=5;
   s:=1;
   For i:=1 to n do
      s:=s*i;
   Writeln(s);
   Readln;
end.

в)

var i,n:integer;
    s:real;
begin
   n:=5;
   s:=1;
   For i:=1 to n do
      s:=s*(1+1/i/i);
   Writeln(s:5:5);
   Readln;
end.

г)

function f(x:integer):real;
var i:integer;
begin
   Result:=0;
   For i:=1 to x do
      Result:=Result+sin(i*pi/180);
end;

var i,n:integer;
    s:real;
begin
   n:=5;
   s:=0;
   For i:=1 to n do
      s:=s+1/f(i);
   Writeln(s:5:5);
   Readln;
end.

д)

var i,n:integer;
    s:real;
begin
   n:=5;
   s:=Sqrt(2);
   For i:=2 to n do
      s:=Sqrt(2+s);
   Writeln(s:5:5);
   Readln;
end.

е)

function f1(x:integer):real;
var i:integer;
begin
   Result:=0;
   For i:=1 to x do
      Result:=Result+cos(i*pi/180);
end;

function f2(x:integer):real;
var i:integer;
begin
   Result:=0;
   For i:=1 to x do
      Result:=Result+sin(i*pi/180);
end;

var i,n:integer;
    s:real;
begin
   n:=5;
   s:=1;
   For i:=1 to n do
      s:=s*f1(i)/f2(i);
   Writeln(s:5:5);
   Readln;
end.

ж)

var i,n:integer;
    s:real;
begin
   n:=5;
   s:=Sqrt(3*n);
   For i:=n-1 downto 2 do
      s:=Sqrt(3*i+s);
   Writeln(s:5:5);
   Readln;
end.

78
а)

var i,n,s,a:integer;
begin
   n:=5;
   a:=3;
   s:=1;
   For i:=1 to n do
      s:=s*a;
   Writeln(s);
   Readln;
end.

б)

var i,n,s,a:integer;
begin
   n:=5;
   a:=3;
   s:=a;
   For i:=1 to n-1 do
      s:=s*(a+i);
   Writeln(s);
   Readln;
end.

в)

var i,n,a:integer;
    s:real;

function f(x:integer):real;
var i:integer;
begin
   Result:=1;
   For i:=1 to x do
      Result:=Result*(a+i);
end;

begin
   n:=5;
   a:=3;
   s:=1/a;
   For i:=1 to n do
      s:=s+1/f(i);
   Writeln(s);
   Readln;
end.

г)

function step(chislo:integer;stepen:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=1 to stepen do
      Result:=Result*chislo;
end;

var i,n,a:integer;
    s:real;
begin
   n:=5;
   a:=3;
   s:=1/a;
   For i:=1 to n do
      s:=s+1/step(a,step(2,i));
   Writeln(s);
   Readln;
end.

д) - не понял закономерность
79

var i:integer;
    s:real;
begin
   s:=1;
   For i:=1 to 10 do
      s:=s*(1+sin(0.1*i*pi/180));
   Writeln(s);
   Readln;
end.

80

function step(chislo:integer;stepen:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=1 to stepen do
      Result:=Result*chislo;
end;

function znak(chet:integer):integer;
begin
   Result:=-1;
   If chet div 2=0 then
      Result:=1;
end;

function fact(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

var i,x:integer;
    s:real;
begin
   x:=5;
   s:=0;
   For i:=1 to 7 do
      s:=s+znak(i)*step(x,2*i-1)/fact(2*i-1);
   Writeln(s);
   Readln;
end.

Сойдет?

[Zhaman]

Спасибо огромнейшее!!!

[newerow1989]

Пожалуйста!