Безотлагательно!!! Помогите пожалуйста с турбо паскаль, задание на тему циклы....Как мне

Безотлагательно!!! Помогите пожалуйста с турбо паскаль, задание на тему циклы....
Как мне препод объясняла там обязано быть for i:=1 to N do begin
P:P*(2*i)/(2*i+1)
end;
Вот часть которую необходимо как то применить к этому заданию...
Как будет смотреться весь код?)))

Задать свой вопрос
Славян Хасамов
Инспектируй прытче, а то я спать ухожу))
Ромик
Написала) Решает, а насчет правильности не знаю) Поглядите у меня последнюю добавленную задачку, так и обязано быть?)) Там скрин то что вышло...
1 ответ
Program PR;
var
  i,n:integer;
  p:real;
begin
write('Введите N: ');
readln(n);
p:=1;
for i:=1 to n do
  p:=p*(2*i)/(2*i+1);
writeln('P=',p);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт