Question

Viết pt pascal. Cho 3 số nguyên a,b,c, viết pt pytago và lấy ví dụ kiểm tra đúng hoặc sai. Giúp em gấp lắm ạ

Answer 1

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

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

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

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

if (a+b>c) and (a+c>b) and (b+c>a) then

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

end

else kt:=0;

if kt=0 then writeln('Day khong la bo ba Pytago')

else writeln('Day la bo ba Pytago');

readln;

end.