Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Danh hậu

Viết chương trình cho biết có bao nhiêu số tự nhiên nhỏ hơn n chia hết cho 7. Biết n được nhập vào từ bàn phím.

Nguyễn Lê Phước Thịnh
25 tháng 2 2023 lúc 15:21

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do

if i mod 7=0 then inc(dem);

write(dem);

readln;

end.


Các câu hỏi tương tự
ly khanh
Xem chi tiết
Ly Huỳnh
Xem chi tiết
Quỳnh Nguyễn Thị
Xem chi tiết
lân đinh
Xem chi tiết
Ly Huỳnh
Xem chi tiết
Trần nguyên sang
Xem chi tiết
Duy Nguyễn Hoàng
Xem chi tiết
Phát Trương Tấn
Xem chi tiết
tiến bộc phấ
Xem chi tiết