напишите программу, которая в последоательности натуральных чисел оределяет сумму всех чисел,

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

Задать свой вопрос
1 ответ
Var A:byte;
    S:integer;
Begin
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 2) then S:=S+A;
Until A = 0;
Write(S);
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт