1樓：匿名使用者
vars,sl,sll:string;ch:char;
a:array[1..30]of integer;
n,x,i,k,max:longint;
begin
readln(s);
fillchar(a,sizeof(a),0);
for i:=1 to length(s) do
begin
read(s[i]); //這裡你打錯了吧？上面已經讀入了s字串了~
if s[i] in ['0'..'9'] then a[i]:=1 else a[i]:=0;（測試時發現不執行這條語句）.///上面你寫錯了~
end; （找出所有數字 ）
for i:=1 to length(s) do
begin
if a[i]= 1 then（掃瞄出所有數字）
begin
sl:=sl+s[i];（將數字從字元轉為常量）
val(sl,k); //其實這一步沒必要~~字串直接比較大小~~這個根據a什麼碼~~不懂就算了
if k>max then max:=k;（找出最大整數）
end;
if a[i]=0 then sl:='';
end;
str(max,sll);（將最大整數轉為字串）
n:=pos(sll,s);（找到字串的位置）
writeln(n);
end.
改好了~~樓主你試試吧~~應該可以的了~~注意格式啊~~希望能幫到你~~~
2樓：
var st:string;
maxst,t:longint;
len,b,i,ks:integer;
x:boolean;
begin
read(st);
len:=length(st);
t:=0; maxst:=0;x:=true; b:=0;
i:=1;
repeat
while ( st[i]>='0') and (st[i]<='9') and (i<=len) do
begin
if x=true then begin b:=i;x:=false;end;
t:=t*10+ord(st[i])-48;
i:=i+1;
end;
if (t>maxst) then begin maxst:=t; ks:=b; end;
i:=i+1;
x:=true;t:=0;
until i>len;
write(ks);
end.
3樓：外星來的
vars,sl:ansistring;//防止很長。
n,i,j,k,max:int64;
begin
readln(s);
i:=1;max:=0;
n:=length(s);
s:=s+'%%^&^$1111';//防止201的。
while i<=n do
begin
j:=i;
if (s[i]>='0')and(s[i]<='9')thenbegin
while (s[j+1]>='0')and(s[j+1]<='9') do//碰到數字就整個取出來。
inc(j);
sl:=copy(s,i,j-i+1);
val(sl,k);
if k>max then max:=k;
endelse
while (s[j+1]<'0')or(s[j+1]>'9')do//一次性跳過其他字元。
inc(j);
i:=j+1;
end;
str(max,sl);
writeln(pos(sl,s));
end.
根號7525a是整數,則整數a的最大值是多少
最小的平方根整數是0，所以，a為3最大咯 根號75的值是多少？8.6602540378444 約等於8.66拓展資料根號是乙個數學符號。根號是用來表示對乙個數或乙個代數式進行開方運算的符號。若a b，那麼a是b開n次方的n次方根或a是b的1 n次方。開n次方手寫體和印刷體用表示，被開方的數或代數式寫...
若a是最小的的正整數,b是最大的負整數,c是相反數等於本身的數,ab c
由a是最小的正整數，a 1 b是最大的負整數，b 1 c是相反數等於本身的數，c 0 則a b c 1 1 0 1 1 2 a 1,b 1,c 0,a b c 2 若a的相反數是它本身,b是最大的負整數,c是最小的正整數,則a b c 急！a的相反數是它本身,所以a 0 b是最大的負整數,所以b 1...
pascal題 給出二叉樹，輸出它的最大寬度和高度
var a array 1.1000 of boolean b array 1.1000 of longint n,i,j,p,q,max,l,r longint begin readln n fillchar a,sizeof a false a 1 true b 1 1 for i 1 to n...