Вычислить , используя циклы while и repeat.

[Knubbe]

Дано натуральное n. Вычислить

[tiger]

ну вот по быстрому написав. если есть ошибки думаю исправишь

n:=12;
vir:=1;
i:=0;
 repeat
  begin
   if i mod 2=1 then
    begin 
     vir:=vir*(1+1/sqr(i));
     i:=i+1;
     end;
    if i mod 2=0 then
     begin
     vir:=vir*(1-1/sqr(i));
     i:=i+1;
     end; 
    end;
    until i<n;
    if i=n then vir:=vir*(1+pow(-1,n)*1/sqr(n));