Question

Решите через Паскаль с помощью циклов

Answer 1

Ответ:

var a,b,u,v,tmp,summ: real;

var i,n,k,factorial: integer;

begin

writeln('Введите u');

readln(u);

writeln('Введите v');

readln(v);

writeln('Введите n');

readln(n);

a:=u;

b:=v;

factorial:=1;

summ:=a*b;

for i:=2 to n do

 begin

 factorial:=factorial*i;

 tmp:=a;

 a:=b*b+2*a;

 b:=tmp*tmp+2*b;

 summ:=summ+(a*b/(1.0*factorial));

 end;

writeln('Сумма ряда при n = ',n,' равна ',summ);

end.