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

Question

Гаря

18 июля, 22:52

+3

Ответы (1)

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

Павлина · Answer 1

Var A, S:integer;

Begin

S:=0;

Repeat

Read (A) ;

if (A mod 6 = 0) and (A mod 10 = 6) then S:=S+A;

Until A = 0;

Write (S)

End.