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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.