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

  • найти произведение чисел N,которые делятся на 3 нацело.

Ответы 1

  • Если N это количество чисел, начинаем с 3

    var

    i,n,p:integer

    begin

    readln(n);

    i:=3;

    p:=1;

    while i<=3*n do

    begin

    p:=p*i;

    i:=i+3;

    end;

    writeln(p);

    end.

    Если N это верхняя граница чисел

    var

    i,n,p:integer

    begin

    readln(n);

    for i:=3 to n

    if i mod 3 = 0 then

    p:=p*i;

    writeln(p);

    end.

     

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

Еще вопросы

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

Войти через Google

 или

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

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

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