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 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 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
0 bình luận về “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õ”
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.