?? ac1123.pas
字號:
program ural1123;
var
s:ansistring;
i,j:integer;
procedure incbyte(p:integer);
begin
while s[p]='9' do begin
s[p]:='0';
dec(p);
end;
inc(s[p]);
end;
begin
readln(s);
for i:=1 to length(s) div 2 do begin
j:=length(s)+1-i;
if s[i]>=s[j] then
s[j]:=s[i]
else begin
incbyte(j-1);
s[j]:=s[i];
end;
end;
writeln(s);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -