Mạng máy tính và internet

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
hoàng đá thủ

Viết chương trình nhập vào bốn số A,B,L,R.Hãy đém xem có bao nhiêu số từ L đến R chia hết cho A và B (Pascal);

Nguyễn Lê Phước Thịnh
29 tháng 8 2023 lúc 20:51

uses crt;

var a,b,l,r,i,dem:integer;

begin

clrscr;

readln(a,b,l,r);

dem:=0;

for i:=l to r do

if (i mod a=0) and (i mod b=0) then inc(dem);

write(dem);

readln;

end.

Nguyễn Hoàng Duy
30 tháng 8 2023 lúc 14:32

var a,b,dem,L,i,R:longint;

begin

readln(a,b,L,R);

dem:=0;

for i:=L to R do

if (i mod a=0) and (i mod b=0) then inc(dem);

write(dem);

readln;

end.


Các câu hỏi tương tự
hoàng đá thủ
Xem chi tiết
hoàng đá thủ
Xem chi tiết
Nhật Nguyễn
Xem chi tiết
Nhật Nguyễn
Xem chi tiết
Đinh Phụng
Xem chi tiết
helpme
Xem chi tiết
hoàng đá thủ
Xem chi tiết
helpme
Xem chi tiết
helpme
Xem chi tiết