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.