Найти значение выражения, небольшой примерчик Опции

[vetal]

Привет всем! Помогите плиз решить задачку по информатике. Завтра сдавать уже нужно, а до меня не допрёт как тут решать. Задачка на простое вычисление, но у меня не получается...



модеры, так нормально ?

Вот так - нормально. Почему надо обязательно ходить неизвестно куда за файлом???

Сообщение отредактировано: volvo - 21.05.2006 21:09

[volvo]

Задачка-то не на "простое", а на рекурсивное вычисление... Где-то я такое уже решал...

Сейчас найду ссылку...

P.S. Ссылку не нашел. Легче заново сделать...

const n = 50;
function s(level: integer): real;
begin
  if level = n then s := n
  else s := sqrt(level + s(level + 1));
end;

begin
  writeln(s(1):10:5);
end.