Ребята, решите мне 2 задание, даю 98 баллов

Ребята, решите мне 2 задание, даю 98 баллов

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт