
Марцеллович
4 год назад
Ребята, Пожалуйста посчитайте мне 2 задание, даю 98 поинтов

ОТВЕТЫ

Денчо
Oct 24, 2020
begin
var (u,d):=ReadReal2('Введите u и б:');
var n:=ReadInteger('Введите n:');
var (a,b,f,s):=(u,d,2.0,0.0);
for var k:=1 to n do begin
s+=a*b/f;
(a,b):=(2*b+a,2*a+b);
f*=k+2
end;
Writeln(s);
end.
Введите u и б: 3.72 6
Введите n: 10
1893.54632412049
246