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”

Question

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'

cobexinhdep · Answer

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.

thanhthuy · Answer

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.

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”

0 bình luận về “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””

Viết một bình luận Hủy