Реазор Р Реазор Регистрация 23 Авг 2013 Сообщения 84 Репутация 8 Спасибо 1 Монет 0 19 Окт 2016 #1 Вот код самой программы, не пойму в чём ошибка program kek; var x,n:integer; s:real; begin readln(x); s:=0; for n:=1 to 10 do begin s:=s+(exp((n+1)*ln(-1)))*exp((2n+1)*ln(x))/(4*exp(2*ln+1)); end; writeln(s:5:9); end. //otvet.imgsmail.ru/download/52931806_b7febbc5f895be75658b3509f24d8b26_800.png
Вот код самой программы, не пойму в чём ошибка program kek; var x,n:integer; s:real; begin readln(x); s:=0; for n:=1 to 10 do begin s:=s+(exp((n+1)*ln(-1)))*exp((2n+1)*ln(x))/(4*exp(2*ln+1)); end; writeln(s:5:9); end. //otvet.imgsmail.ru/download/52931806_b7febbc5f895be75658b3509f24d8b26_800.png