Bài 9: Cấu trúc rẽ nhánh

DL

Viết phương trình bằng ngôn ngữ Tubro Pascal đếm số lượng các số tự nhiên có ba chữ số thỏa mãn điều kiện chia cho 6 dư 2 và đưa kết quả ra màn hình

NT
5 tháng 12 2019 lúc 11:47

uses crt;

var i,dem:integer;

begin

clrscr;

dem:=0;

for i:=100 to 999 do

if i mod 6=2 then inc(dem);

writeln('so luong cac so tu nhien co 3 chu so chia cho 6 du 2 la: ',dem);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
CN
Xem chi tiết
ML
Xem chi tiết
TM
Xem chi tiết
1T
Xem chi tiết
NQ
Xem chi tiết
TL
Xem chi tiết
TN
Xem chi tiết
NL
Xem chi tiết
H24
Xem chi tiết