Написать ** языке Паскаль алгоритм нахождения количества натуральных четырехзначных...

Question

Написать
на языке Паскаль алгоритм нахождения количества натуральных четырехзначных
чисел, каждое из которых не делится ни на 2, ни на 3.

Answer 1

Uses crt;
var i,k:integer;
begin
     k:=0;
     for i:=1000 to 9999 do
         if (i mod 2<>0) and (i mod 3<>0) then inc(k);
     writeln(k);
end.