Nhập vào hai số tự nhiên M và N (M,N<1000). Hãy in ra các ước chung của M và N
2 câu trả lời
program uoc_chung;
Uses crt;
Var
M,n:integer;
Begin
repeat
write('Nhap M: '); readln(M);
write('Nhap N: '); readln(N);
Until (m<1000) and (n<1000);
write('Uoc chung cua ',m,' va ',n,' la: ');
For i:=1 to n do if (n mod i=0) and (m mod i=0) then write(i,' ');
Readln;
End.
#HN
#Chuc_em_hoc_tot
uses crt;
var m,n,ans,i:word;
function UCLN(a,b:word):longint;
var r:word;
begin
while b <> 0 do
begin
r:=b;
b:=a mod b;
a:=r;
end;
exit(a);
end;
begin
clrscr;
read(m,n);
ans:=UCLN(m,n);
for i:=1 to ans do
if ans mod i = 0 then
write(i,' ');
readln; readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
