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

    question img

Ответы 1

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

    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.

    • Автор:

      good71
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years