Nhập vào ba số nguyên dương a,b,c hãy viết chương trình kiểm tra xem 3 số đó có phải ba cạnh của tam giác không
0 bình luận về “Nhập vào ba số nguyên dương a,b,c hãy viết chương trình kiểm tra xem 3 số đó có phải ba cạnh của tam giác không”
var a,b,c: integer;
begin
write(‘nhap do dai canh thu nhat:’); readln(a);
write(‘nhap do dai canh thu hai:’); readln(b);
write(‘nhap do dai canh thu ba:’); readln(c);
if (a+b<c) or (a+c<b) or (b+c<a) then write(‘3 gia tri duoc nhap khong phai la ba canh cua tam giac’) else write(‘3 gia tri duoc nhap la ba canh cua tam giac’);
var a,b,c: integer;
begin
write(‘nhap do dai canh thu nhat:’); readln(a);
write(‘nhap do dai canh thu hai:’); readln(b);
write(‘nhap do dai canh thu ba:’); readln(c);
if (a+b<c) or (a+c<b) or (b+c<a) then write(‘3 gia tri duoc nhap khong phai la ba canh cua tam giac’) else write(‘3 gia tri duoc nhap la ba canh cua tam giac’);
readln;
end.
Program Tam_Giac;
Uses Crt;
Var a,b,c : Real;
Begin
Clrscr;
Writeln(‘Nhap do dai canh thu nhat cua tam giac la:’);Readln(a);
Writeln(‘Nhap do dai canh thu hai cua tam giac la:’);Readln(b);
Writeln(‘Nhap do dai canh thu ba cua tam giac la:’);Readln(c);
If ( a + b > c ) and ( b + c > a ) and ( c + a > b )
Then writeln(‘La do dai ba canh cua tam giac’)
Else writeln(‘Khong phai la do dai ba canh cua tam giac’);
Readln
End.