Информатика за 10 класс
Решите задачу на алгоритмическом языке:
Дано натуральное число n. Вычислить P=(1-1/2)(1-1/3)...(1-1/n), где n>2. Составить блок-схему и программу.
По дате
По рейтингу
12345678910
uses crt;
var k, n: longint;
P: real = 1;
begin
clrscr();
write('n: ');
readln(n);
for k := 2 to n do P := P*(1-1/k);
writeln('Π(k=2;n)(1-¹/k) = ', P)
end. Видео по теме