Những câu hỏi liên quan
LA VAN CAU
Xem chi tiết
minh
Xem chi tiết
Minh Lệ
28 tháng 4 2021 lúc 13:39

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap xau :'); readln(s);

for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);

readln

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
28 tháng 4 2021 lúc 19:12

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]='a' then delete(st,i,1);

writeln(st);

readln;

end.

Bình luận (0)
Yến Hoang Thị Hải
Xem chi tiết
Lala
Xem chi tiết
Nguyễn Quốc Đạt
17 tháng 11 2023 lúc 0:18

#include <bits/stdc++.h>

using namespace std;

int main() {

freopen("VIRUS.INP","r",stdin);

freopen("VIRUS.OUT","w",stdout);

string S, R;

cin >> S >> R;

while(S.find(R) >= 0) {

int p = S.find(R);

if (p >= 0) S.erase(p,R.length());

else break;

}

cout<<S;

return 0;

}

Bình luận (0)
Bảo Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:29

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.

Bình luận (0)
Official LEEZ
Xem chi tiết
Minh Lệ
21 tháng 3 2023 lúc 12:16

Program HOC24;

var s: string;

i,d: byte;

f1,f2: text;

fi='Xau.mp'

fo='KQ.Out'

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

readln(f1,s);

d:=0;

for i:=1 to length(s) do if s[i]='a' then d:=d+1;

write(f2,d);

close(f1); close(f2);

end.

Bình luận (0)
Cao Thị Hoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:11

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.

Bình luận (0)
U Lan
Xem chi tiết
U Lan
Xem chi tiết