viết chương trình nhập vào một xâu , đếm các ký tự c trong xâu (ký tự c nhập vào từ bàn phím) mình cần gấp mong mn giúp đỡ
2 câu trả lời
uses crt;
var s:string;
c,i,d: integer;
begin
clrscr;
write ('nhap xau s: '); readln (s);
for i:=1 to length(s) do if s[i]=c then d:=d+1;
writeln ('trong xau co ',d,' ki tu "',c,'"');
readln;
end.
program dem_c;
uses crt;
var s:string;
c:char;
i,d:integer;
begin
clrscr;
write('Nhap xau: '); readln(S);
write('Nhap ki tu c: '); readln(c);
d:=0;
for i:=1 to length(s) do
if s[i]=c then d:=d+1;
write('Co ',d,' ki tu ',c,' trong xau ',s);
readln;
end.
