Question

Задача 3.Введите с клавиатуры 5 положительных целых чисел.Вычислите сумму тех из них,которые делятся на 4 и при этом заканчиваются на 6.Программа должна вывести одно число:сумму чисел,выведенных с клавиатуры ,кратных 4 и оканчивающихся на 6.

Answer 1

var
    i, s, n, d: integer;

begin
    n := 5;
    for i := 1 to n do
    begin
        readln(d);
        if (d mod 10 = 6) and (d mod 4 = 0) then
            s := s + d;
    end;
    writeln(s);
end.