Контрольная работа: цикл с параметром
Типовая задача вынесенная на контрольную работу*:
Дано натуральное число 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.
|
*Обязательные этапы решения задачи (описание входных/выходных данных, блок-схема, и проч.) не приводятся здесь умышленно.