Hi HI Hi
viết chương trình sử dụng câu lệnh while để in ra màn hình các số chia hết cho 7 từ 500 đến 200
Kiều Vũ Linh
25 tháng 3 2022 lúc 9:17

var a:integer;

begin

a:=500;

writeln('cac so chia het cho 7 la:');

while a>=200 do

begin

if a mod 7 = 0 then writeln(a);

a:=a-1;

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn Ngọc Diễm My
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Võ Tấn Trường Phạm
Xem chi tiết
MANH AN
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Triển Hoàng Đình
Xem chi tiết
huu nguyen
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết