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

Duy Anh Lê

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

Nguyễn Lê Phước Thịnh
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.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Cường Nước
Xem chi tiết
Minh Tánh Lý
Xem chi tiết
Trần Thị Trà My
Xem chi tiết
15. 11a6 Khuyên trần
Xem chi tiết
Nguyễn Quyên
Xem chi tiết
Thảo Linhh
Xem chi tiết
Tú Nguyễn
Xem chi tiết
Nguyễn Diệu Linh
Xem chi tiết
Machunsu
Xem chi tiết