ЮН
Юля Никитина
Нужна помощь! Задача по программированию Pascal
Нужно написать программу, которая вычисляет сумму ряда. Количество суммируемых членов ряда вводится с клавиатуры.
Нужно написать программу, которая вычисляет сумму ряда. Количество суммируемых членов ряда вводится с клавиатуры.
примени к себе эту прогу
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.