Люди помогите мне, пожалуйста, с этими задачками по циклам:

1. Около стены наклонно стоит палка длиной х м. Один ее конец находится на расстоянии y м от стены. Определить значение угла a(альфа) между палкой и полом для значений x=k м и y, изменяющегося от 2 до 3 м с шагом h м.
2. Дано натуральное число N.
Вычислить:
cos(1)/sin(1)*cos(1)+cos(2)/sin(1)+sin(2)*...*cos(1)+cos(2)...+cos(N)/sin(1)+sin(2)...+sin(N)

3. Найти сумму ряда с точностью e=0,001, общий член которого: 1/((3*n-2)*(3*n+1))

т.к. я очень плохо знаю синтаксис языка Turbo C++, у меня возникли проблеммы с этими задачками.
Я знаю только, как на языке Turbo Pascal это сделать, вот решение на паскале этих задачек:

var a,h,x,y,z,y1,p,l,s:real;
i,n:integer;
W:real;
begin
writeln('BBeguTe h,x');
readln(h,x);
y:=2;
y1:=3;
while y<=y1 do
begin
z:=sqrt(sqr(x)-sqr(y));
a:=arctan(z/y);
y:=y+h;
writeln(a:6:5,' ',360*a/(2*pi):4:2);
end;
readln;

writeln('BBeguTe n ');
readln(n);
p:=1;
x:=0;
l:=0;
i:=1;
while i<=n do
begin
x:=x+cos(i);
l:=l+sin(i);
p:=p*(x/l);
inc(i);
end;
writeln('OTBET ',p:10:5);
readln;

s:=0;
n:=1;
w:=1;
while W>0.001 do
begin
W:=1/((3*n-2)*(3*n+1));
s:=s+W;
writeln(n,' ',w,' ',s);
inc(n);
end;
writeln('OTBET ',s:10:5);
readln;
end.



Заранее огромное спасибо и человеческий респект!!!

Termi_uc спасибо огромное!!!!!!!!!!!!