Ответы Mail
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Программа в Pascal ABC
Алексей Кравцов
(281),
на голосовании
11 лет назад
Дополнен 11 лет назад
повторяется n раз
Дополнен 11 лет назад
p=(1-1/2)*(1-1/4)*(1-1/6)*(1-1/8)....
n раз
n раз
Голосование за лучший ответ
Krab Bark
(191702)
11 лет назад
program tjfu1;
var i,n:integer; p:real;
begin readln(n); p:=1; for i:=1 to n do p:=p*(1-1/(2*i)); writeln(p); readln end.
var i,n:integer; p:real;
begin readln(n); p:=1; for i:=1 to n do p:=p*(1-1/(2*i)); writeln(p); readln end.
Похожие вопросы
var...;
begin и заканчивая End. Заранее спасибо!