Две задачи по программированию на Pascal

[linkmail]

Здравствуйте! Помогите плиз решить задачи!

Если можно распишите подробнее.
Заранее огромное спасибо!

[andrewpalkin]

Сообщение от linkmail

Если можно распишите подробнее.
Заранее огромное спасибо!

И в чем сложность ? Обе задачи можно решить рекурсивно или с помощью одного цикла ! Где ваши наработки ?

[linkmail]

мне просто задали их решить,а я вобще программы писать неумею, у нас в школе информатика почти не велась.....
помогите пожалуйста!!

[Z1000000]

Program Square;
var
 N,i : Integer;
 F : Real;
begin
read ( N );
F := 0;
while ( N > 0 ) do
 begin
 F := sqrt(3*N + F);
 N := N - 1;
 end;
writeln ( F ) ;
end.

[Mad_Cat]

1)

var i,n:integer;
s:real;
begin
readln(n);
s:=0;
for i:=n downto 1 do
s:=3*n+sqrt(s);
s:=sqrt(s);
writeln(s:6:3);
readln;
end.

2)

var x,e,Y0,Y1:real;
begin
read(x,e);
Y0:=x;
Y1:=1/2*(Y0+x/Y0);
while abs(Y1-Y0)>=e do
begin
Y0:=Y1;
Y1:=1/2*(Y0+x/Y0);
end;
writeln(Y1:6:3);
end.

[Z1000000]

Program Square;
var
 X,E,Y,YPrev : Real;
 k : Integer;
begin
read(X,E);
Y := X;
repeat
 YPrev := Y;
 Y := 0.5 * ( YPrev + X / YPrev );
until ( abs(Y - YPrev) <= E);

writeln (Y);
end.