Viết CT nhập vào 2 số M, N nguyên dương (0<M<N). Hãy in ra màn hình các số là ước của 1000 từ M đến N Viết CT nhập vào 2 số M, N nguyên dương (0 < M < N). Hãy tìm ước chung lớn nhất của M và N

baosan32

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 29 xem

1 trả lời

Thích Trả lời

tinhv2005

Bài 1:

program uoc_1000;

uses crt;

var m,n,i:integer;

begin

clrscr;

write('Nhap M: '); readln(m);

write('Nhap N: '); readln(n);

for i:=m to n do

if 1000 mod i=0 then write(i,' ');

readln;

end.

Bài 2:

program uoc_chuong_lon_nhat;

uses crt;

var m,n:integer;

begin

clrscr;

write('Nhap m: '); readln(m);

write('Nhap n: '); readln(n);

while m<>n do

if m>n then m:=m-n else n:=n-m;

write('UCLN = ',m);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

pierredefermat2002

Câu 1:

var m, n, i: word;

Begin

Write('nhap m va n: '); readln(m, n);

For i:=m to n do

if 1000 mod i=0 then write(i, ' ');

Readln

End.

Câu 2:

var m, n: word;

Begin

Write('nhap m va n: '); readln(m, n);

While m<>n do

If m>n then m:=m-n

Else n:=n-m;

Write('UCLN: ', m);

Readln

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Một người đi xe máy từ A đến B mất 6 giờ . Lúc về đi từ B đến A người đó đi với vận tốc nhanh hơn 4km/h nên chỉ mâtd 5 giờ . Tính quãng đường AB? giupp minhhh voi

hiện nay bố 36 tuổi và gấp 4 lần tuổi viet .hỏi 6 nam trước tuổi bố gấp mấy lần tuoi việt

Học kỳ 1, số học sinh giỏi của lớp 6A bằng $\frac{2}{7}$ số học sinh còn lại.Sang học kỳ 2 số học sinh giỏi tăng thêm 8 bạn ( số học sinh cả lớp không đổi ), nên số học sinh giỏi bằng $\frac{2}{3}$ số học sinh còn lại. a) Hỏi học kỳ 1 lớp 6A có bao nhiêu học sinh giỏi ? b) Tính tỉ số phần trăm của số học sinh giỏi học kỳ 2 lớp 6A so với học sinh cả lớp.

các sản phẩm của da quan trọng thế nào với đời sống?

Tính tỉ số phần trăm của 2$\frac{3}{4}$ và 1$\frac{13}{21}$ 0,2tạ và 40 kg

Hãy nêu quy trình sinh sản của các loài thực vật có hoa Giúp mik vs,mik cần gấp lắm!

Viết cho toy 3 chữ Calligraphy này với <3 Hàn Đổng Doris Delywyn Hiddelton Beccy NL : Ai đó hãy giới thiệu cho mình một vài loại bút viết Calligraphy đẹp cho người mới được khong ;-;

vé chibi gặm bánh quy nha Có ai để avt vs tui ko

Vẽ tranh galaxy mây, không lấy trên mạng Help me!

Lấy VD về phản ứng oxi hoá gulucozo Và phản ứng lên men rượu không lấy trong sgk

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến