K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
T
0
Các câu hỏi dưới đây có thể giống với câu hỏi trên
T
0
2 tháng 1 2021
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.
6 tháng 4 2019
Trong Windows muốn đổi tên một thư mục (Folder) hay tập tin, ta chọn thư mục (hoặc tập tin đó) rồi thực hiện : File → Rename (hoặc nhấn phím phải chuột chọn Rename)