#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.