Прошу очень к завтра! Буду очень признателен. Необходимо написать программу.

1

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

2012-04-22T23:43:32+04:00

Не уверен, что верно, но вроде работает правильно:

Program num1;
Uses crt;
Var
i,n : integer;
k :real;
Function re(i:integer):real;
begin
if i=1 then re:=sqrt(2) else re:=sqrt(2+re(i-1));
end;
Begin
clrscr;
write('N=');readln(n);
k:=re(n);
writeln('k=',k);
End.