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.