Дам много раутов Безотлагательно надо

Ответ:

1)

Begin

P:=1.0;

For i:= 3 to 12 do

P:=p/sqrt(i)

Write(p);

End.

2)

Begin

Read(x);

S:=1;

For i:= 1 to 11 do

S:=s+5*i+x;

Write(s);

End.

3)

Begin

S:=0;

For i:= 1 to 130 do

If i mod 6= 0 then

S:=s+1;

Write(s);

End.

4)

Begin

S:=0;

For a:= 1 to 20 do

For b:= 1 to 20 do

For c:= 1 to 20 do

If a*a-b=c*c then

S:=s+1;

Write(s);

End.

5)

Begin

S:=0;

For i:= 20 to 99 do

If i mod 3= 0 then

S:=s+i;

Write(s);

End.