Câu 9:

Program FNG;
Uses crt;
Var n,i,j: longint;
    s: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1;
        If n mod 2 = 0 then
                For i:=1 to n do
                        If i mod 2 = 0 then s:=s*i
        Else
        If n mod 2 = 1 then
                For j:=1 to n do
                        If j mod 2 = 1 then s:=s*j;
        Write('S = ',s);
        Readln
End.

Bài 10:

Program FNG;
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(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(c) then Write('Bo so pytago')
        Else Write('Khong phai bo so Pytago');
        Readln
End.

Bài 11:

Program FNG;
Uses crt;
Var i: longint;

Function lpcs(a: longint): longint;
Var s: longint;
Begin
        s:=0;
        While a<>0 do
        Begin
                s:=s+sqr(a mod 10)*(a mod 10);
                a:=a div 10;
        End;
        lpcs:=s;
End;

Begin
        Clrscr;
        For i:=100 to 999 do
                If i = lpcs(i) then Write(i,' ');
        Readln
End.

Bài 13:

Program FNG;
Uses crt;
Var i,j,k: byte;
Begin
        Clrscr;
        For i:=1 to 20 do
                For j:=1 to 33 do
                Begin
                        k:=100-i-j;
                        If 5*i+3*j+k/3 = 100 then Writeln(i,' ',j,' ',k);
                End;
        Readln
End.