Bai1:

Program NN;
Uses crt;
Var a,b,c,i,k: longint;
Begin
        Clrscr;
        For i:=100 to 999 do
        Begin
                k:=i;
                a:=k div 100;
                k:=k mod 100;
                b:=k div 10;
                k:=k mod 10;
                c:=k;
                If a*b*c=a+b+c then Writeln(a,b,c);
        End;
        Readln
End.

Bai2:

Program NN;
Uses crt;
Var St: String;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(St);
        Write(length(St));
        Readln
End.

Bai3:

Program NN;
Uses crt;
Var n,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        While n<>0 do
        Begin
                s:=s+n mod 10;
                n:=n div 10;
        End;
        Write('S = ',s);
        Readln
End.