#Danmelaptrinh
Câu 7:
uses crt;
var a,b:longint;
function ucln(a,b:longint):longint;
begin
while a<>b do
if a<b then b:=b-a else a:=a-b;
ucln:=a;
end;
function bcnn(a,b:longint):longint;
begin
bcnn:=a;
while bcnn mod b<>0 do bcnn:=bcnn+a;
end;
begin
clrscr;
write('Nhap 2 so nguyen a,b: ');readln(a,b);
writeln('UCLN: ',ucln(a,b));
writeln('BCNN: ',bcnn(a,b));
readln
end.
Câu 8:
uses crt;
var i,n:longint; a:array[1..10000000]of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],' '); writeln;
for i:=1 to n do
if a[i] mod 2=1 then write(a[i],' ');
readln
end.
