Download: http://www.mediafire.com/?9dm1t5tgy9hw6cw
PROGRAM CT56;
USES crt;
VAR Thongbao:STRING;
a,b,c: INTEGER;
BEGIN
clrscr;
Thongbao:='la bo so pytago';
Writeln('Chuong trinh Kiem tra bo so pytago');
Write('Nhap ba so : '); Readln(a,b,c);
IF (sqr(a)=sqr(b)+sqr(c)) OR (sqr(b)=sqr(a)+sqr(c)) OR (sqr(c)=sqr(a)+sqr(b)) THEN
Write(Thongbao) ELSE Write('Khong ',thongbao);
Readln
END.
PROGRAM CT56;
USES crt;
VAR Thongbao:STRING;
a,b,c: INTEGER;
BEGIN
clrscr;
Thongbao:='la bo so pytago';
Writeln('Chuong trinh Kiem tra bo so pytago');
Write('Nhap ba so : '); Readln(a,b,c);
IF (sqr(a)=sqr(b)+sqr(c)) OR (sqr(b)=sqr(a)+sqr(c)) OR (sqr(c)=sqr(a)+sqr(b)) THEN
Write(Thongbao) ELSE Write('Khong ',thongbao);
Readln
END.