Question

Viết chương trình chứng minh tam giác vuông.

Answer 1

var a,b,c:real;

begin

write('nhap 3 canh: '); readln(a,b,c);

If ((a*a = b*b + c*c) or (b*b=a*a+c*c)) or (c*c=b*b+a*a) then write('co') else write('khong');

end.

Answer 2

program andanh;
uses crt;
var a,b,c:real;
begin
clrscr;
write('Do dai canh thu nhat: ');readln(a);
write('Do dai canh thu hai: ');readln(b);
write('Do dai canh thu ba: ');readln(c);
if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c))
or (sqr(c) = sqr(a) + sqr(b))
then write('La tam giac vuong')
else write('Khong phai tam giac vuong');
readln
end.