Mọi ng lm giúp e với ???? 1. Viết chương trình tìm BCNN của 2 số nguyên a và b, trong chương trình có sử dụng hàm tìm UCLN của 2 số nguyên a và b? 2. Vi

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.