Question

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

Answer 1

Var 
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.