Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 8. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму чисел, кратных 6 и оканчивающихся на 8.

Answer 1

Var
    i, n, s, x: integer;

begin
    readln(n);  
    
    s := 0;
    for i := 1 to n do  
    begin
        readln(x);   
        if (x mod 10 = 8) and (x mod 6 = 0) then     
            s := s + x;     
    end;  
    
    writeln('S = ', s);
end.