Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

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

Вова Ишуткин Ученик (153), закрыт 4 недели назад
Решите задачу на алгоритмическом языке:
Дано натуральное число n. Вычислить P=(1-1/2)(1-1/3)...(1-1/n), где n>2. Составить блок-схему и программу.
Лучший ответ
Ксения Райт Просветленный (42209) 2 месяца назад
 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.
Остальные ответы
Похожие вопросы