Bài 7. Câu lênh lặp

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

Nhập M, N từ bàn phím (M < N). Có bao nhiêu số chia hết cho 3 trong phạm vi từ M đến N.

Nguyễn Lê Phước Thịnh
21 tháng 4 2020 lúc 10:59

uses crt;

var m,n,dem,i:integer;

begin

clrscr;

write('m='); readln(m);

write('n='); readln(n);

if m<n then

begin

dem:=0;

for i:=m to n do

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

writeln('co ',dem,' so chia het cho 3 trong pham vi tu ',m,' toi ',n);

end

else writeln('vui long nhap lai');

readln;

end.


Các câu hỏi tương tự
Lan Phương
Xem chi tiết
cuong le
Xem chi tiết
lyngoc hiep
Xem chi tiết
Bảo Trâm
Xem chi tiết
Bảo Trâm
Xem chi tiết
Diệu Thương Lê
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
DinoDrang
Xem chi tiết
HuyNoPro
Xem chi tiết