Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
n, c: integer;
begin
repeat
write('Число - ');
readln(n);
if ((n mod 6) = 0) and ((n mod 4) = 0) then
c := c + n;
until n = 0;
Write('Сумма всех чисел, кратных 6 и оканчивающихся на 4 равна ', c);
end.