Delphi-Help

Главная Статьи Циклы Контрольная работа: цикл с параметром

Контрольная работа: цикл с параметром

Оцените материал
(0 голосов)


Контрольная работа: цикл с параметром

Типовая задача вынесенная на контрольную работу*:

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

P = (1 - 1/22)*(1 - 1/32)*...*(1 - 1/n2), где n > 2.

Решение

program sum2;
var
      n,i:word;
      p:real;
begin
write('Введите n, n > 2. n = '); readln(n);
p := 1;
for i := 2 to n do
      p := p * (1 - 1/(i * i));
writeln('P = ', p);
readln
end.

*Обязательные этапы решения задачи (описание входных/выходных данных, блок-схема, и проч.) не приводятся здесь умышленно.

Прочитано 4975 раз

Авторизация



Счетчики