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.