![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 18.12.2017
Сообщений: 1
|
![]()
var i,n:integer; p:real;
Begin read (n); p:=1; For i:=1 to n do Begin If i mod 2=1 then; Begin p:=p*(2*i-1-(1/(i+1)/(i+1))); End Else i mod 2=0 THEN; Begin p:=p*(2*i-1+(1/(i+1)/(i+1))); End; writeln (p); End. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]()
Как минимум точек с запятой лишних наставил )) И 2*i-1 точно так? Может 2*(i-1) ?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,582
|
![]() Код:
Без исходной формулы телепать решение - это как "угадай мелодию", исполненную на тракторе "Беларус". Последний раз редактировалось digitalis; 18.12.2017 в 12:52. |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найдите ошибку | Славик__077 | Общие вопросы C/C++ | 10 | 31.01.2011 15:15 |
Найдите ошибку | Гиро-Гинор | Помощь студентам | 2 | 12.11.2010 23:16 |
Найдите ошибку | MaJlbBuHa | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.10.2009 23:26 |
Найдите ошибку | St1fler92 | Помощь студентам | 4 | 26.05.2009 15:23 |