Viết chương trình nhập vào 3 số dương a,b,c.KIểm tra và in ra màn hình kết quả kiểm tra 3 số đó có thể là độ dài các cạnh của tam giác vuông k?
Viết chương trình nhập vào 3 số dương a,b,c.KIểm tra và in ra màn hình kết quả kiểm tra 3 số đó có thể là độ dài các cạnh của tam giác vuông k?
program ctpt;
uses crt;
var a, b, c: integer;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
write(‘Nhap c = ‘); readln(c);
if (a+b<c) or (a+c<b) or (b+c<a) then write(‘a, b, c khong phai do dai 3 canh cua tam giac’) else
begin
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then
write(‘a, b, c la do dai 3 canh cua tam giac vuong)
else write(‘a, b, c khong phai do dai 3 canh cua tam giac vuong’);
end;
readln
end.
Program NN;
Uses crt;
Var a,b,c: longint;
Begin
Clrscr;
Write(‘Nhap do dai 3 canh: ‘); Readln(a,b,c);
If (a+b>c) and (b+c>a) and (a+c>b) then
Begin
m:=sqr(a);
n:=sqr(b);
o:=sqr(c);
If (m+n=o) or (m+o=n) or (o+n=m) then Write(‘YES’)
Else Write(‘NO’);
End
Else Write(‘KHONG PHAI TAM GIAC’);
Readln
End.