Question

viết chương trình pascal nhập 3 số nguyên dương a,b,c từ bàn phím kiểm tra in ra màn hình kết quả kiểm tra có là độ dài của 3 cạnh của tam giác cân hay khong ?

Answer 1

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then

begin

kt:=0;

if (a=b) and (a<>c) and (b<>c) then kt:=1;

if (b=c) and (b<>a) and (c<>a) then kt:=1;

if (c=a) and (c<>b) and (a<>b) then kt:=1;

if kt=1 then writeln('day la tam giac can')

else writeln('day khong la tam giac can');

end

else writeln('vui long nhap lai');

readln;

end.

Answer 2

program ho_tro;

uses crt;

var a,b,c: real;

begin

clrscr;

writeln(' nhap ba so:'); readln(a,b,c);

if (a+b)>c or (a+c)>b or (b+c)>a then writeln(' la ba canh cua tam giac:')

else writeln(' k phai ba canh tam giac:');

readln;

end.

Answer 3

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then

begin

kt:=0;

if (a=b) and (a<>c) and (b<>c) then kt:=1;

if (b=c) and (b<>a) and (c<>a) then kt:=1;

if (c=a) and (c<>b) and (a<>b) then kt:=1;

if kt=1 then writeln('day la tam giac can')

else writeln('day khong la tam giac can');

end

else writeln('vui long nhap lai');

readln;

end.