câu 1:
var a, b: word;
Function uc(x, y: word): word;
Begin
While x<>y do
If x>y then x:=x-y
Else y:=y-x;
Uc:=x;
End;
Begin
Write('nhap a va b: '); readln(a, b);
Write('bội chung nhỏ nhất: ', a*b div uc(a, b));
Readln
End.
câu 2:
var a, b, c: word;
Function kt(x, y, z: word): boolean;
Begin
If (x+y) <= z then exit(false);
Exit(true);
End;
Begin
Write('nhap 3 gia tri a, b, c: ');
Readln(a, b, c);
If
kt(a, b, c) and kt (b, c, a) and kt(c, a, b)
Then write('day la 3 canh tam giac')
Else write('khong la 3 canh tam giac');
Readln
End.