Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var a, b, c : real;
begin
clrscr;
write('Nhap ba so a, b, c : '); readln(a, b, c);
if (a = b) and (b = c) then writeln('Tam giac deu')
else if (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = b*b + a*a)
then writeln('Tam giac vuong')
else if (a = b) or (a = c) or (b = c)
then writeln('Tam giac can')
else writeln('Tam giac thuong');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
202
124
PASCAL
uses crt;
var a, b, c: real;
begin
clrscr;
write('Nhap Ba Canh a, b, c:'); readln(a, b, c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a * a + b * b = c * c) or (a * a + c * c = b * b) or (b * b + c * c = a * a) then
writeln('Tam Giac Vuong')
else if (a = b) or (a = c) or (b = c) then
begin
if (a = b) and (b = c) then
writeln('Tam Giac Deu')
else
writeln('Tam Giac Can');
end
else writeln('Tam Giac Thuong');
end
else write('Khong Phai Tam Giac');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1268
1585
Em ơi, chị chưa thấy em cung cấp thông tin, em nhắn tin cho chị trên fanpage luôn nhé
Bảng tin