viết phương trình đến các số lẻ là bội của 3 từ 1 đến n . (n là số tự nhiên nhập vào từ bàn phím , 1<n<100000) làm đúng nha ghi rõ
1 câu trả lời
program baitap;
var dem,i,n: integer;
begin
dem:= 0;
read(n);
for i:=1 to n do
if (imod 3 = 0)and (i mod 2 <>0) then
dem:=dem+1;
writeln('vayco', dem,' so la boi cua 3');readln;
end.