Задать вопрос Регистрация
Помочь другим

  • Написать программу вычисления произведений  в Паскаль 2*4*6*...*(2n).

    ПОМОГИТЕ ПЛИЗЗЗ решить срочно 

Ответы 2

  • через рекурсию

     

    var

    function Product(N: Integer): Integer;

    begin

    if N = 1then

    begin

    Product := 2;

    Exit;

    end;

    Product := 2 * N * Product(N - 1);

    end;

     

     

    var

    N: Integer;

    begin

    ReadLn(N);

    WriteLn(Product(N));

    ReadLn;

    end.

     

    без рекурсии

     

    N, Y, I: Integer;

     

    begin

    ReadLn(N); Y := 1; I := 0;

    repeat

    Inc(I);

    Y := Y * 2 * I;

    until I = N;

    WriteLn(Y);

    ReadLn;

    end.

    • Автор:

      smith64
    • 6 лет назад
    • 0

  • var N, Y, I: Integer;begin  ReadLn(N); Y := 1; I := 0;  repeat    Inc(I);    Y := Y * 2 * I;  until I = N;  WriteLn(Y);  ReadLn;end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years