Написать программку на АВС.net паскале которая высчитывает творенье первых n-чисел ряда

Написать программку на АВС.net паскале которая высчитывает произведение первых n-чисел ряда p=2/3*2/5*2/7*..*2/2i+1

Задать свой вопрос
1 ответ

Ответ:

Var i,n:integer;

P:=real;

Begin

Read(n);

P:=1.0;

For i:=1 to n do

Begin

P:=p*2/(i+1);

End;

Write (p);

End.

Konstantin Puljarkin
А она сработает?
Margarita Bastorina
я не про это значения р видал чему одинаково я имею виду что она для всех этих чисел
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт