Nhập xâu và đếm số lần xuất hiện của một ký tự được nhập từ bàn phím
2 câu trả lời
program oken;
uses crt;
var s: string;
chr: char;
dem,i: byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
write('Nhap ki tu can kiem tra: '); readln(chr);
dem:=0;
for i:=1 to length(s) do
if chr=s[i] then
dem:=dem+1;
writeln('So lan xuat hien cua ki tu ',chr,': ',dem);
readln;
end.
Program Hotboy ;
Uses crt;
var Hb:string;
i,d:byte;
k:char;
Begin
Clrscr;
D:=0;
Write('Nhap xau tu ban phim ');
Readln(Hb);
Write('nhap ki tu bat ki');
Readln(k);
For i:=1 to length(Hb) do
if (Hb[i]=k ) then inc(d);
write('So ki tu ',k,' trong xau do la: ',d);
Readln
End.
Câu hỏi trong lớp
Xem thêm
