Информатика за 10 класс

Question

Информатика за 10 класс

Вова Ишуткин Ученик (153), закрыт 4 недели назад

Решите задачу на алгоритмическом языке:
Дано натуральное число n. Вычислить P=(1-1/2)(1-1/3)...(1-1/n), где n>2. Составить блок-схему и программу.

Answer 1

 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.