A. Tìm giá trị nguyên dương nhỏ nhất để tổng S = 1+2+3+… > E với E là số nguyên được nhập vào từ bàn phím B. Đếm xem số nguyên dương n được nhập vào từ bàn phím có bao nhiêu chữ số C. Tính tổng các chữ số của số nguyên dương n được nhập vào từ bàn phím D. Kiểm tra số nguyên dương n được nhập vào từ bàn phím có phải là số đối xứng hay không E. Tìm tất cả các số đối xứng từ 1 đến n với n là số nguyên dương n được nhập vào từ bàn phím P/s: Giúp mình với mn ơii

Full 5 câu nhé ^^

A.

Program FNG;
Uses crt;
Var s,e,i: longint;
Begin
        Clrscr;
        Write('Nhap e: '); Readln(e);
        i:=1;
        While s<=e do
        Begin
                s:=s+i;
                inc(i);
        End;

        Write(S);
        Readln
End.

B.

Program FNG;
Uses crt;
Var n,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        While n<>0 do
        Begin
                n:=n div 10;
                inc(d);
        End;
        Write(d);
        Readln
End.

C.

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

D.

Program FNG;
Uses crt;
Var n,d,k: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0; k:=n;
        While n<>0 do
        Begin
                d:=d*10+n mod 10;
                n:=n div 10;
        End;
        If d=k then Write('Doi xung')
        Else Write('Khong doi xung');
        Readln
End.

E.

Program FNG;
Uses crt;
Var n,i: longint;

Function DX(a: longint): boolean;
Var s,k: longint;
Begin
        k:=a; s:=0;
        While a<>0 do
        Begin
                s:=s*10+a mod 10;
                a:=a div 10;
        End;
        If s=k then exit(true);
        exit(false);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
                If DX(i) then Write(i,' ');
        Readln
End.