B1: nhập 3 số dương a,b,c

B2: nếu a+b <= c, chuyển đến b6

B3: nếu a+c <= b, chuyển đến b6

B4: nếu b+c <= a, chuyển đến b6

B5: cho kết quả a,b,c là 3 cạnh của tam giác

B6: in ra kết qua và kết thúc thuật toán

 Xin hãy cho tui 5 sao và câu trả lời hay nhất.Cảm ơn trước nè!

a/

thuật toán:

B1: nhập 3 cạnh (a,b,c)

B2: xét 3 cạnh a,b,c và in kết quả hợp lí

      if (a+b>c) and (a+c>b) and (c+b>a) then writeln ('ba canh nay co the tao thanh 1 tam giac')

      else writeln ('ba canh nay khong the tao thanh 1 tam giac');

b/

chương trình

uses crt;

var a,b,c: integer;

begin

 clrscr;

 write ('nhap canh thu nhat: ');   readln (a);

 write ('nhap canh thu hai: ');   readln (b);

 write ('nhap canh thu ba: ');   readln (c);

if (a+b>c) and (a+c>b) and (c+b>a) then writeln ('ba canh nay co the tao thanh 1 tam giac')

else writeln ('ba canh nay khong the tao thanh 1 tam giac');

readln;

end.

bài kia dài dòng mà thiếu rồi ấy nên đừng chép

:))