|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2017, 11:48 | #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. |
18.12.2017, 11:56 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Как минимум точек с запятой лишних наставил )) И 2*i-1 точно так? Может 2*(i-1) ?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
18.12.2017, 12:45 | #3 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Код:
Без исходной формулы телепать решение - это как "угадай мелодию", исполненную на тракторе "Беларус". Последний раз редактировалось 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 |