Вычислить результат выражения по заданному n

@ericgilmanov · Регистрация: 17.12.2013

Студворк — интернет-сервис помощи студентам

Вычислить результат выражения по заданному n

@Peoples · 14.03.2016, 20:25

Pascal

program pr;
 
var
  n, i: integer;
  p: real;
 
begin
  p := 1;
  writeln('Введите n');
  readln(n);
  for i := 1 to n do
  begin
    p := p * (2 * i) / ((2 * i) + 1);
  end;
  writeln('P = ', p);
end.

@ericgilmanov 0 / 0 / 0 Регистрация: 17.12.2013 Сообщений: 44
		1
	Вычислить результат выражения по заданному n 14.03.2016, 20:14. Показов 981. Ответов 1 Метки нет (Все метки) 0

Опции темы

Вычислить результат выражения по заданному n

Решение