Lê Hồng Quang
(iamquang95)
New Member
thôi đc rồi cho em bài tử tế =))
số Bplain là số đọc ngược hay xuôi thì cũng như nhau, ví dụ như 191 hay 6886
Tìm các số Bplain trong [m,n] =))
Cái này à =))
em chỉ viết Function kiểm tra thôi nha
Function Bplain(a:integer):boolean;
Var
i,j:integer;
tt:boolean;
b:array[1..100]of integer;
Begin
TT:=true;
i:=0;
Repeat
Inc(i);
b:=a mod 10;
a:=a div 10;
Until a=0;
For j:=1 to i div 2 do
if b[j]<>b[i-j+1 then
tt:=false;
Bplain:=tt;
end;
Sai đừng chém em nha
----------
Bài dễ nhé :-?
Cho 2 số A,B. Xuất ra màn hình 2 hiệu và tổng của 2 số.
A,B <= 10^10000
Bài này thôi khỏi phải làm