• написать программу, которая в последовательности натуральных чисел определяет сумму всех чисел кратных 6 и оканчивающихся на 2. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0( это признак окончания ввода, не входит в последовательность). Кол-во чисел не превышает 100. Введенные числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 2. 

Ответы 1

  • var  sum, x : integer;begin  sum := 0;  repeat    read (x);    if (x mod 6 = 0) and (x mod 10 = 2) then sum := sum + x;  until x = 0;  write (sum);end.
    • Автор:

      braedon
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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