Vt ct kiểm tra xem 3 cạnh có phải là cạnh của tam giác không
2 câu trả lời
program Kiem_tra;
var a,b,c: integer;
begin
clrscr;
write('nhap 3 canh cua tam giac:'); readln(a,b,c);
if (a+b>c) and (a-b<c) then writeln('3 so do la 3 canh cua tam giac')
else writeln('3 so do khong la 3 canh cua tam giac);
readln
end.
$\text{program tinh;}$
$\text{uses crt;}$
$\text{var a, b, c : integer;}$
$\text{begin}$
$\text{clrscr;}$
$\text{write('nhap do dai canh tam giac thu nhat :');readln(a);}$
$\text{write('nhap do dai canh tam giac thu hai :');readln(b);}$
$\text{write('nhap do dai canh tam giac thu ba :');readln(c);}$
$\text{if ((a + b > c) and (a + c > b) and (b + c > a)) then }$
$\text{writeln('do dai ba canh la canh cua tam giac ')}$
$\text{else writeln('do dai ba canh khong phai cua tam giac ');}$
$\text{readln}$
$\text{end.}$
