1. viết chương trình pascal nhập vài một sâu S, tính số lần xuất hiện chữ cái ‘a’ có trong xâu S
2. viết chương trình nhập vào một xâu S. hãy thay thế tất cả các từ ‘anh ‘ có trong xâu Svừa nhập thành từ ’em’ (vd: nhập S=’ anh toi tot bung ‘, xâu kết quả S= ’em toi tot bung’
MÌNH CẦN GẤP CHO BÀI KTRA LẮM Ạ!!!! MONG MN GIÚP ĐỠ
1.
Program BTT;
Uses crt;
Var St: String;
i,d: longint;
Begin
Clrscr;
Write(‘Nhap St: ‘); Readln(St);
d:=0;
For i:=1 to length(St) do
If St[i]=’a’ then inc(d);
Write(d);
Readln
End.
2.
Program BTT;
Uses crt;
Var St: String;
i,vt: longint;
Begin
Clrscr;
Write(‘Nhap St: ‘); Readln(St);
While Pos(‘anh’,St)<>0 do
Begin
vt:=Pos(‘anh’,St);
Delete(St,vt,3);
Insert(’em’,St,vt);
End;
Write(St);
Readln
End.
Bài 1 nha
program tong;
uses crt;
var S:string;
i,dem:integer;
begin
clrscr;
readln(S);
For i:=1 to length(S) do if S[i]=’a’ then inc(dem);
writeln(dem);
readln;
end.
Bài 2
program tong;
uses crt;
var S:string;
i,vt:integer;
begin
clrscr;
readln(S);
while pos(‘anh’,S)>0 do
begin
insert(’em’,S,pos(‘anh’,S));
delete(S,pos(‘anh’,S),3);
end;
writeln(S);
readln;
end.