Viết chương trình nhập vào 2 số M,N (M<N). Đếm số lượng số chia hết cho 3 theo câu lệnh for-do và while-do.

FOR .. DO: Program NhatNgu; Uses crt; Var m,n,i,d: longint; Begin Clrscr; Write('Nhap m, n: '); Readln(m,n); d:=0; For i:=m to n do If i mod 3 = 0 then inc(d); Write('D = ',d); Readln End. WHILE .. DO Program NhatNgu; Uses crt; Var m,n,i,d: longint; Begin Clrscr; Write('Nhap m, n: '); Readln(m,n); d:=0; i:=m; While i<=n do Begin If i mod 3 = 0 then inc(d); inc(i); End; Write('D = ',d); Readln End.

Viết chương trình nhập vào 2 số M,N (M
03/08/2021 Bởi aikhanh

Viết chương trình nhập vào 2 số M,N (M { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập vào 2 số M,N (MBình luận

Viết một bình luận Hủy