viết chương trình nhập vào từ bàn phím xâu kí tự S và ký tự k . Hãy đến và đưa ra màn hình số kí tự k có trong xâu S
2 câu trả lời
Program HOI DAP 24
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if (s[i]='b') or (s[i]='B') then d:=d+1;
write('Co ',d,' ki tu B trong xau');
readln
end.
var k: char;
s: string;
i, d: byte;
Begin
Write('nhap xau: '); readln(s);
Write('nhap ki tu k: '); readln(k);
D:=0;
For i:=1 to length(s) do
If s[i]=k then inc(d);
Write('co ', d, ' ki tu ', k);
Readln
End.
