• Написать программу, которая выводит целые числа в промежутку от 1 до 50, кратные двенадцати и считает их количество, сумму и произведение.

Ответы 5

  • Если другой язык, перепишу :3
  • Мне бы на Паскале пжалста (сам не знаю почему с самого начала не написал об этом).
    • Автор:

      alecbefw
    • 6 лет назад
    • 0
  • щас поменяю
    • Автор:

      killian76
    • 6 лет назад
    • 0
  • добавил в начало
    • Автор:

      tori
    • 6 лет назад
    • 0
  • var amount, sum, multi, i: integer;

    begin

       amount:= 0;

       sum:= 0;

       multi:= 1;

       for i:=1 to 51 do begin

           if i mod 12 = 0 then begin

               writeln(i);

               amount:= amount + 1;

               sum:= sum + i;

               multi:= multi * i;

           end;

       end;

       writeln(amount, ' ', sum, ' ', multi);

    end.

    ##########

    amount = 0

    sum = 0

    multi = 1

    for i in range(1, 51):

       if i % 12 == 0:

           print(i)

           amount += 1

           sum += i

           multi *= i

    print(amount, ' ', sum, ' ', multi)

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

Войти через Google

или

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

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

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