đề 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 :>>>
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.