viết chương trình nhập vào bốn số a,b,c,d (a,b,c,d lớn hơn 0) đây là độ dài của bốn đoạn thẳng in ra màn hình tất cả các tam giác được tạo thành từ bốn số trên trong trường hợp ko tìm được tam giác nào thì in ra ko tìm đc
1 câu trả lời
uses crt;
var a,b,c,d: Integer;
begin
clrscr;
writeln('Nhap so thu nhat'); readln(a);
writeln('Nhap so thu hai'); readln(b);
writeln('Nhap so thu ba'); readln(c);
writeln('Nhap so cuoi cung'); readln(d);
If (a + b > c) or (a + c > b) or (b + c > a) then
writeln('Tam giac')
Else writeln('Khong tim ra duoc');
Readln
End.