Nhập từ bàn phím 1 xâu đếm số lần xuất hiện ký tự A trong xâu
S = “Hoang_Van_Nam”
Nhập từ bàn phím 1 xâu đếm số lần xuất hiện ký tự A trong xâu S = “Hoang_Van_Nam”
By Madeline
By Madeline
Nhập từ bàn phím 1 xâu đếm số lần xuất hiện ký tự A trong xâu
S = “Hoang_Van_Nam”
Program BTT;
Uses crt;
Var S: String;
i,d: longint;
Begin
Clrscr;
Write(‘Nhap S: ‘); Readln(S);
d:=0;
For i:=1 to length(S) do
If S[i]=’A’ then inc(d);
Write(‘Co ‘,d,’ ky tu A’);
Readln
End.
Program bt;
Uses crt;
Var S: String;
i,d: integer;
Begin
Clrscr;
Write(‘Nhap S: ‘); Readln(S);
d:=0;
For i:=1 to length(S) do If S[i]=’A’ then inc(d);
Write(‘Co ‘,d,’ ky tu A trong xau S’);
Readln;
End.