Câu 1:
program uoc_chung_ln;
uses crt;
var a,b,c:integer;
{---Ham---}
function UCLN(x,y,z:integer):integer;
begin
while x<>y do
if x>y then x:=x-y else y:=y-x;
while x<>z do
if x>z then x:=x-z else z:=z-x;
UCLN:=x;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap A: '); readln(a);
write('Nhap B: '); readln(b);
write('Nhap C: '); readln(c);
writeln('UCLN la: ',ucln(a,b,c));
readln;
end.
Câu 2:
Tham số hình thức: x,y,z
Tham số thực sự: a,b,c
Biến toàn cục: a,b,c
Biến cục bộ: Không có
