Пожалуйста, помогите решить. Задачи должны быть сделаны в Turbo Pascal

Question

Дмитрий Сысоев · Accepted Answer

Что-то конкретное не получается? Есть наработки или сделать "домашку" за тебя? 
Что написала, но не работает выкладывай на pastebin . com и прилагай ссылку. Иначе не спортивно.

Влад · Answer

примени эту программу себе 
program sumr; 
uses crt; 
var i:integer; 
a,s,x:real; 
 BEGIN 
 clrscr; 
 writeln('vichislenie summi rada'); 
 writeln('----------------------'); 
 writeln; 
 write('vvesti X ==> '); 
 readln(x); 
 writeln; 
 s:=0; 
 a:=x; writeln('a0= ',a:8:3); 
 for i:=0 to 4 do begin 
 a:=a*sqr(x)*(2*i+1)/(2*i+3); writeln('a',i+1:1,'= ',a:8:3); 
 s:=s+a; end; 
 writeln('s=',s:8:3); 
 readkey; 
END.