Вопрос Кто шарит за программирование в паскале, правильно ли составила программу?

[sashaWEBs]

program primer1;

var

i,n:integer;

p:real;

begin

readln;

p:=1;

i:=1;

while i<=n do begin p:=p*(2*i)/(2*i+1);

i:=i+1;

end;

writeln(p:6:2);

end.

 

[ky-ky]

Не правильно

 

[Seq90]

проверь

 

[ДМИТРИЙ163]

не шарю как Вы, но проверить можно ...

 

[илья51]

быдлоидка с фермы, для тебя шарить за шмот и прочие шарилки - за клубом...

 

[кравченко]

Если вы считали

тогда похоже, что правильно.

Но я бы оформил так: program primer1;
var
i, n: integer;
p: real;
begin
readln;
p:=1;
i:=1;
while i