Program Hotboy ;

uses crt;

var x,y,z:real;

begin

Clrscr;

     write('Nhap canh x,y,z');readln(x,y,z);

     if sqr(x)+sqr(y)=sqr(z) or sqr(y)+sqr(z)=sqr(x) or sqr(x)+sqr(z)=sqr(y) then write(x:3,y:3,z:3'la 3 canh cua 1 tam giac vuong') 

 else write(x:3,y:3,z:3' khong phai 3 canh cua 1 tam giac vuong');

   readln

end.

2/ Program Hotboy ;

Uses crt;

Var i,m,n ,s : integer;

Begin

Clrscr;

S:=0;

For i:= m to n do

Begin

If (i mod 3=0) or ( i mod 5=0) then

s:=s+i;

End;

write('Tong cac so tu m den n chia het cho 3 hoac 5 la',S);

readln

end.

 

program hotrotinhoc;

var a,b,c: integer;

begin

readln(a,b,c);

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then write('Day la tam giac vuong')

else write('Khong phai tam giac vuong');

readln

end.