Поскольку в бинарной записи 000 означает 7+1, поэтому двоичная запись не заканчивается на 000 только у чисел не кратных 8:
var i:integer;
begin
for i:=3721 to 7752 do begin
if (i mod 8 <> 0) and (i mod 3 = 0) then write(i, ' ');
end;
end.
Поскольку в бинарной записи 000 означает 7+1, поэтому двоичная запись не заканчивается на 000 только у чисел не кратных 8:
var i:integer;
begin
for i:=3721 to 7752 do begin
if (i mod 8 <> 0) and (i mod 3 = 0) then write(i, ' ');
end;
end.