Câu hỏi: cho tệp xau. Inp chứa 1 dãy kí tự trên nhiều dòng. Viết chương trình đọc dãy kí tự vào 1 xâu và ghi kết quả vào tệp xấu. Out chỉ chứa kí tự 'a'?
Giúp e vs ạ
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.
Những câu hỏi liên quan
8 tháng 5 2021
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.
ML
26 tháng 2 2021
Program HOC24;
const fi='bai24.inp';
fo='bai24.out';
var f: text;
s: string;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,s);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
if s='palindrome' then write(f,'La xau palindrome') else write(f,'Khong phai xau palindrome');
close(f);
end;
begin
ip;
out;
end.
5 tháng 5 2021
const fi='kt.txt';
fo='kq.out';
var f1,f2:text;
s:string;
i,dem,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
vt:=pos('anh',s);
while vt<>0 do
begin
delete(s,vt,3);
insert(s,vt,'em');
vt:=pos('anh',s);
end;
writeln(f2,s);
close(f1);
close(f2);
end.
const fi='xau.inp';
fo='xau.out';
var f1,f2:text;
st:array[1..100]of string;
i,d:integer;
st1:shortstring;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
d:=0;
while not eof(f1) do
begin
inc(d);
readln(f1,st[d]);
end;
st1:='';
for i:=1 to d do
st1:=st1+st[i];
for i:=1 to length(st1) do
if st1[i]='a' then write(f2,st1[i]:4);
close(f1);
close(f2);
end.