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ết chương trình kiểm tra 3 số nguyên a, b, c có phải là 3 cạnh của 1 tam giác hay không? (Sử dụng chương trình con).
1 câu trả lời
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.
