Проверьте задачу - вопрос №206440

 

Дано натуральное число 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.



Дополнение автора от 18.02.12 18:39:50

Спасибо. Уже не надо.

Ответы

Еva

от 100 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store