sashaWEBs S sashaWEBs Регистрация 30 Ноя 2013 Сообщения 75 Репутация 0 Спасибо 0 Монет 0 16 Янв 2024 #1 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.
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 K ky-ky Регистрация 10 Авг 2013 Сообщения 78 Репутация 0 Спасибо 1 Монет 0 16 Янв 2024 #2 Не правильно
Seq90 S Seq90 Регистрация 23 Ноя 2013 Сообщения 87 Репутация 0 Спасибо 0 Монет 0 16 Янв 2024 #3 проверь
ДМИТРИЙ163 Д ДМИТРИЙ163 Регистрация 22 Окт 2013 Сообщения 107 Репутация 0 Спасибо 0 Монет 0 16 Янв 2024 #4 не шарю как Вы, но проверить можно ...
илья51 И илья51 Регистрация 29 Дек 2013 Сообщения 96 Репутация 0 Спасибо 0 Монет 0 16 Янв 2024 #5 быдлоидка с фермы, для тебя шарить за шмот и прочие шарилки - за клубом...
кравченко К кравченко Регистрация 7 Дек 2013 Сообщения 87 Репутация 0 Спасибо 0 Монет 0 16 Янв 2024 #6 Если вы считали тогда похоже, что правильно. Но я бы оформил так: program primer1; var i, n: integer; p: real; begin readln; p:=1; i:=1; while i
Если вы считали тогда похоже, что правильно. Но я бы оформил так: program primer1; var i, n: integer; p: real; begin readln; p:=1; i:=1; while i