Дано натуральное число n. вычислить (1+1/1в квадрате)*(1+1/2в квадрате)...(1+1/n в квадрате). Проверьте, пожалуйста, правильно я решил.
program z1;
var n,z: integer;
umn:real;
begin
readln (n);
umn:=1;
for z:=2 to x do
umn:= (1+1/sqr(1))*(1+1/sqr(umn)); writeln (umn);
end.
Спасибо. Уже не надо.