đề bài:Viết chương trình nhập vào 2 số nguyên dương ?, ?. Xuất ra màn hình tất cả ước chung của ? và ?. Các ước chung được xuất ra nằm trên cùng một dòng theo thứ tự tăng dần và cách nhau khoảng trắng. Lập trình pascal, ko dùng while, dùng longint lun :>>>
2 câu trả lời
program uocchung;
uses crt;
var a,b,i:longint;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a<b then
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then write(i,' ');
if a>=b then
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then write(i,' ');
readln
end.
uses crt;
var a,b,i:longint;
begin
clrscr;
readln(a,b);
for i:=1 to a do
if(a mod i=0)and(b mod i=0)then write(i,' ');
readln;
end.
