• напишите программу, которая в последоательности натуральных чисел оределяет сумму всех чисел, кратных 6 и оканчивающтхся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность ). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел кратных 6 и оканчивающихся на 2. Вводные данные 12, 24, 22, 72, 11, 0. выходные данные 84
    СРОЧНО! ПОМОГИТЕ

Ответы 1

  • Var A:byte;    S:integer;BeginRepeatRead(A);if (A mod 6 = 0)and(A mod 10 = 2) then S:=S+A;Until A = 0;Write(S);End.
    • Автор:

      Úrsula
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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