Viết chương trình đếm các số lẻ là bội của 3 từ 1 -> n ( n là số tự nhiên nhập vào bàn phím , 1 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình đếm các số lẻ là bội của 3 từ 1 -> n ( n là số tự nhiên nhập vào bàn phím , 1 n ( n là số tự nhiên nhập vào bàn phím , 1
0 bình luận về “Viết chương trình đếm các số lẻ là bội của 3 từ 1 -> n ( n là số tự nhiên nhập vào bàn phím , 1<n<100000)”
Program FNG; Uses crt; Var n,i,d: longint; Begin Clrscr; Write(‘Nhap n: ‘); Readln(n); d:=0; For i:=1 to n do If (i mod 3 = 0) and (i mod 2 <> 0) then inc(d); Write(d); Readln End.
Program FNG; Uses crt; Var n,i,d: longint; Begin Clrscr; Write(‘Nhap n: ‘); Readln(n); d:=0; For i:=1 to n do If (i mod 3 = 0) and (i mod 2 <> 0) then inc(d); Write(d); Readln End.n
Program FNG;
Uses crt;
Var n,i,d: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0;
For i:=1 to n do
If (i mod 3 = 0) and (i mod 2 <> 0) then inc(d);
Write(d);
Readln
End.
Program FNG;
Uses crt;
Var n,i,d: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0;
For i:=1 to n do
If (i mod 3 = 0) and (i mod 2 <> 0) then inc(d);
Write(d);
Readln
End.n