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.
Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.
uses crt;
var st:string;
i,d,dem:integer;
ch:char;
begin
clrscr;
write('Nhap xau:'); readln(st);
write('Nhap ki tu:'); readln(ch);
d:=length(st);
dem:=0;
while pos(ch,st)>0 do
begin
inc(dem);
delete(st,pos(ch,st),1);
end;
writeln(dem);
readln;
end.
chuoi_A = input("Nhập chuỗi A: ")
if chuoi_A.find("123") != -1:
print("Chuỗi A chứa chuỗi con '123'")
else:
print("Chuỗi A không chứa chuỗi con '123'")
A = input("Nhập vào chuỗi A: ")
if "123" in A:
print("Chuỗi A chứa chuỗi con '123'.")
else:
print("Chuỗi A không chứa chuỗi con '123'.")
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,dem;
int main()
{
getline(cin,st);
d=st.length();
dem=0;
for (i=0; i<=d-1; i++)
if ((97<=st[i] && st[i]<=122) and (st[i]!=".")) dem++;
cout<<dem;
return 0;
}
Bài 1:
uses crt;
var S:String;
vt:integer;
begin
clrscr;
Write(‘Nhap 1 xau:’); Readln(S);
While pos(‘nang’,s)>0 do
Begin
Vt:= pos(‘nang’,s);
Delete(s,vt,4);
Insert(‘mua’,s ,vt);
End;
Writeln(‘Xau sau khi thay the ’,s);
Readln;
End.
Bài 2:
uses crt;
var st:string;
d,i,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(st,' la xau doi xung')
else writeln(st,' khong la xau doi xung');
readln;
end.
s = input("Nhập xâu s: ")
x = input("Nhập xâu x: ")
count = 0
for i in range(len(s) - len(x) + 1):
if s[i:i+len(x)] == x:
count += 1
if count == 0:
print("Không xuất hiện")
else:
print("Số lần xuất hiện của x trong s là:", count)
#include <bits/stdc++.h>
using namespace std;
string s;
int d,i,dem;
int main()
{
cin>>s;
d=s.length();
dem=0;
for (i=0; i<=d-1; i++)
if (s[i]=='a') dem++;
cout<<dem;
return 0;
}
uses crt;
var st,s:string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
writeln('Xau vua nhap la: ',s);
d:=length(s);
for i:=1 to d do
if s[i]=#32 then delete(s,i,1);
dem:=1;
st[1]:=s[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if s[i]=st[j] then kt:=1;
if kt=0 then
begin
inc(dem);
st[dem]:=s[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if st[i]=s[j] then inc(dem1);
writeln(st[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
Program HOC24;
var s: string;
x: char;
d: byte;
begin
write('Nhap xau: '); readln(s);
write('Nhap ki tu: '); readln(x);
d:=0;
for i:=1 to length(s) do if s[i]=x then d:=d+1;
if d=0 then write('Ki tu do khong xuat hien trong xau') else write('Ki tu do xuat hien trong xau');
readln
end.
