Question

Tìm số lớn nhất Cho xâu ký tự S chỉ gồm các số và các chữ. Lập trình tìm số lớn nhất trong xâu. - Tên file bài làm: TimMax.pas - Tên file Input : TimMax.inp o Gồm 1 dòng chứa xâu S - Tên file output : TimMax.out o Gồm 1 số là số lớn nhất trong xâu o Nếu không có số nào trong xâu ghi ra số -1

Answer 1

const fi='timmax.inp'     

fo='timmax.out'

var f1,f2:text;   

st,xauso:ansistring;   

d,i,max,x:longint;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

xauso:=''

max:=0;

for i:=1 to d do 

if st[i] in ['0'..'9'] then xauso:=xauso+st[i] 

else begin         

              val(xauso,x);         

              if max<=x then max:=x;         

              xauso:=''       

        end;

if max=0 then writeln(f2,'-1')

else writeln(f2,max);

close(f1);

close(f2);

end.