uses crt;
var i,d: integer;
begin
clrscr;
for i:=1 to 100 do
if (i mod 2=0) and (i mod 3<>0) then d:=d+1;
writeln ('co ',d,' so chia het cho 2 ma khong chia het cho 3 trong cac so tu nhien tu 1-->100');
readln;
end.
Cái đề lừa người vãi thế mà còn cho cái hướng dẫn bựa nữa chứ (vì phải kiểm tra điều kiện thì mới đếm đc)
:)
thôi chúc bn có 1 kì thi tốt lành !!!!