Quảng cáo
1 câu trả lời 185
9 tháng trước
const fi='dl.inp'
fo='dl.out'
var f1,f2:text;
st:string;
i,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
for i:=2 to d-1 do
write(f2,st[i]);
close(f1);
close(f2);
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
2 23013
-
Hỏi từ APP VIETJACK18994
Gửi báo cáo thành công!