Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var st:string;
a:array[1..255]of string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
a[1]:=st[1];
dem:=1;
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if st[i]=a[j] then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=st[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if a[i]=st[j] then inc(dem1);
writeln(a[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
uses crt;
var a:string;
c:char;
i,dem:integer;
begin
clrscr;
readln(a);
readln(c);
dem:=0;
for i:=1 to length(a) do
if a[i]=c then dem:=dem+1;
writeln(dem);
readln;
end.
uses crt;
var a,b:string;
i,n,d,d1:integer;
begin
clrscr;
write('Nhap xau a:'); readln(a);
write('Nhap xau b:'); readln(b);
if a[length(a)]=b[1] then writeln('Ki tu cuoi cua xau a trung voi ki tu dau cua xau b')
else writeln('Ki tu cuoi cua xau a khong trung voi ki tu dau cua xau b');
dem:=0;
while pos(b,a)>0 do
begin
inc(dem);
delete(a,pos(b,a),length(b));
end;
writeln('Xau b xuat hien ',dem,' lan trong xau a');
readln;
end.
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then delete(s,i,1);
writeln('Xau sau khi xoa het ki tu chu la: ',s);
readln;
end.
#include <iostream>
using namespace std;
int main() {
string A, B;
getline(cin, A);
getline(cin, B);
int count = 0;
for (int i = 0; i <= B.length() - A.length(); i++) {
bool found = true;
for (int j = 0; j < A.length(); j++) {
if (B[i+j] != A[j]) {
found = false;
break;
}
}
if (found) {
count++;
}
}
cout << count;
return 0;
}
Đầu vào là #include<bits/stdc++.h> mà bn