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

Viết chương trình sử dụng lệnh lặp while....do... để đếm các số tự nhiên chia hết cho 5 từ 1 -> n được nhập từ bàn phím.

Bạn nào lẹ lẹ cho mik mai mik thi ròi ak:<

 

Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:18

program DemSoChiaHetCho5;
var
  n, count, i: integer;
begin
  write('Nhap vao so n: ');
  readln(n);
  count := 0;
  i := 1;
  while i <= n do
  begin
    if i mod 5 = 0 then // kiem tra so i co chia het cho 5 khong
      count := count + 1;
    i := i + 1;
  end;
  writeln('So luong so tu nhien chia het cho 5 tu 1 den ', n, ' la: ', count);
end.

 


Các câu hỏi tương tự
huyokkkkk
Xem chi tiết
Vy Tường_8a2
Xem chi tiết
Hoàng Hải Bình
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Sóc Trăng Chi nhánh
Xem chi tiết
Võ Tấn Trường Phạm
Xem chi tiết
Nguyễn Thuận
Xem chi tiết
Hùng Bùi
Xem chi tiết
Trí Cao
Xem chi tiết