Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 8 и оканчивающихся на 6. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: сумму всех натуральных чисел, кратных 8 и оканчивающихся на 6.
begin
s:=0; n:=0;
repeat
if ((n mod 8)=0) and ((n mod 10)=6) then s:=s+n;
read(n);
until n=0;
writeln('сумма: ',s);
end.
16 32 23 24 15 0
сумма: 16