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

A.

Program BTT;
Uses crt;
Var s,e,i: longint;
Begin
        Clrscr;
        Write('Nhap e: '); Readln(e);
        s:=0;
        For i:=1 to e do s:=s+i;
        Write('S = ',s);
        Readln
End.

B.

Program BTT;
Uses crt;
Var n,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        While n<>0 do
        Begin
                s:=s+1;
                n:=n div 10;
        End;
        Write('Co ',s,' chu so');
        Readln
End.

C.

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