Найти количество целых положительных чисел, больших 100, меньших 500, кратных 12 и...

Question

Найти количество целых положительных чисел, больших 100, меньших 500, кратных 12 и заканчивающихся на 4 или 6

Answer 1

Var k,i:integer;
begin
k:=0;
for i:=101 to 499 do
 if (i mod 12 = 0)and((i mod 10 = 4)or(i mod 10 = 6))
  then k:=k+1;
writeln('k = ',k);
end.

Результат:
k = 12