- 13.11.2017 01:05
- Информатика
- remove_red_eye 1127
- thumb_up 64
Ответы и объяснения 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.
- 14.11.2017 12:23
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.