Viết chương trình in ra màn hình các số chia hết cho 3 trong phạm vi từ 1 đến 20
Ngày đăng:
16/10/2021
Trả lời:
0
Lượt xem:
1930
Cách viết chương trinh in ra màn hình các sô chia hết cho 3 và thông báo ra màn hình có bao nhiêu số chia hết cho 3 trong phạm vi từ 1 đến n. biết n nhập vào từ bàn phím, n nguyên dương Uses crt; Var n,i,a : integer; Begin a:=0; Write('nhap n'); readln(n); For i:=1 to n do If (i mod 3= 0) then inc(a); Writeln('so so chia het cho 3 la',a); Readln End. program oken; |