Вводится 8 чисел. Нужно определить сколько из них делится ** 3 и при этом заканчивается...

Question

Вводится 8 чисел. Нужно определить сколько из них делится на 3 и при этом заканчивается на 4
Нужно написать программу в кумире

Answer 1

Var b,I:integer;
a:array [1..8] of integer;
begin
writeln('введите числа');
for I:=1 to 8 do
read(a[I]);
b:=0;
for I:=1 to 8 do
if (a[I] mod 3=0) and
(a[I] mod 10=4) then 
b:=b+1;
writeln(b);
readln;
end.