pascal 删数问题

发布网友发布时间：2022-06-09 13:07

共1个回答

热心网友时间：2023-10-02 14:19

program ex(input,output);
var
ss:string;
a:array[0..1000] of longint;
s,p,q,l,i,j,min:longint;
begin
readln(ss,s);
l:=length(ss);
for i:=1 to l do a[i]:=ord(ss[i])-ord('0');
a[0]:=maxlongint;
p:=1;q:=l-s;
for i:=1 to l-s do
begin
min:=0;
for j:=p to q do
if a[j]<a[min] then min:=j;
write(a[min]);p:=min+1;q:=s+i+1;
end;
end.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com