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.