Viết chương trình nhập vào 3 số a,b,c

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 251 02/08/2023


Viết chương trình nhập vào 3 số a,b,c

Đề bài: Viết chương trình nhập vào 3 số a,b,c. Kiểm tra xem a,b, c có phải là tam giác cân hay không  

Lời giải

uses crt;

var a,b,c:real;

kt:integer;

begin

clrscr;

repeat

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

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

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

until (a>0) and (b>0) and (c>0);

if (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=0 then writeln('Day khong la tam giac can')

else writeln('Day la tam giac can');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

1 251 02/08/2023


Xem thêm các chương trình khác: