Здрасти. Тут вот такая задача стоит:

Условие:
Введите натуральные числа n и вычислите все значения функции
y=(1+1/1^2)*(1+1/2^2)*...*(1+1/n^2) для значений n, изменяющихся
от 1 до 5 с шагом 1. Решить циклами, 3мя разными способами, используя
операторы for, while, repeat.

Вот. И вроде бы я умею циклы составлять и всё такое, но я не пойму как
написать это произведение, т.е. Я составил цикл



но как написать произведение от 1 до 5 я не знаю. И ещё как я не пойму как это
задание делать при помощи repeat. Поможете?

М

Tark, правила - для всех, в том числе и для новичков. См. Правила Форума (ссылка вверху) п.4 и правила раздела Задачи (п.1 на этой странице повыше). Исправь название, или тема будет удалена.

var
  p: double;
  i: integer;
......
  p:= 1.0;
  for i:=1 to n do p:= p*(1.0+1.0/(i*i));

var
  p: double;
  i: integer;
......
  p:= 1.0;
  i:= 0;
  repeat
    Inc(i);
    p:= p*(1.0+1.0/(i*i));
  until p=n;