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

Question

Информатика

Зара

10 июля, 05:48

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

+1

Ответы (1)

Знаете ответ на вопрос?

Косма · Answer 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.