Câu 1:

uses crt;
var a,b,c:extended;
begin
        clrscr;
        write('Nhap 3 canh tam giac: '); readln(a,b,c);
        if (sqrt(a)=sqrt(b)+sqrt(c)) or (sqrt(b)=sqrt(a)+sqrt(c)) or (sqrt(c)=sqrt(a)+sqrt(b)) then write('Day la tam giac vuong')
        else write('Day khong phai la tam giac vuong');
        readln;
end.

Câu 2:

uses crt;
var x:integer;
begin
        clrscr;
        write('Nhap so: '); readln(x);
        if x mod 2=0 then
                begin
                        writeln(x,':2=',x/2:0:2);
                        write(x,'.15=',x*15);
                end
        else write(x,' la so le');
        readln;
end.

Bài 1:

Program BTT;
Uses crt;
Var a,b,c: real;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);
        If (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a))
        then Write('Tam giac vuong')
        Else Write('Khong phai tam giac vuong');
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var x: longint;
Begin
        Clrscr;
        Write('Nhap x: '); Readln(x);
        If x mod 2 = 0 then
        Begin
                Writeln('X la so chan');
                Writeln('Thuong cua so do voi 2 la: ',x/2:0:2);
                Write('Tich cua so do voi 15 la: ',x*15);
        End

        Else Write('X la so le');
        Readln
End.