viết chương trình nhập vào 3 giá trị số nguyên và kiểm tra 3 giá trị đó có tạo thành 3 cạnh của tam giác đều , vuông cân không
viết chương trình nhập vào 3 giá trị số nguyên và kiểm tra 3 giá trị đó có tạo thành 3 cạnh của tam giác đều , vuông cân không
program tamgiac;
uses crt;
var a,b,c:integer;
begin
clrscr;
write (‘a=’);readln (a);
write (‘b=’); readln (b);
write (‘c=’); readln (c);
if a=b=c then write (‘a,b,c la 3 canh cua tam giac deu’);
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a) then write (‘a,b,c la 3 canh cua tam giac vuong’);
if (a=b) or (b=c) or (a=c) then write (‘a,b,c la 3 canh cua tam giac can’);
readln;
end.
Gửi bạn ạ