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.
Program HOC24;
var s,st: string;
i,n,max: integer;
a: array[1..1000] of string;
begin
write('Nhap xau: '); readln(s);
s:=s+' '; n:=1;
while length(s)<>0 do
begin
n:=n+1;
a[n]:=copy(s,1,pos(' ',s));
delete(s,1,pos(' ',s));
end;
max:=length(a[1]);
for i:=2 to n do if max<length(a[i]) then
begin
max:=length(a[i]);
st:=a[i];
end;
write('Tu co do dai lon nhat trong xau la: ',st);
readln
end.
var s,st: string;
i,n,max: integer;
a: array[1..1000] of string;
begin
write('Nhap xau: '); readln(s);
s:=s+' '; n:=1;
while length(s)<>0 do
begin
n:=n+1;
a[n]:=copy(s,1,pos(' ',s));
delete(s,1,pos(' ',s));
end;
max:=length(a[1]);
for i:=2 to n do if max<length(a[i]) then
begin
max:=length(a[i]);
st:=a[i];
end;
write('Tu co do dai lon nhat trong xau la: ',st);
readln
end.
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap chuoi S:'); readln(s);
d:=length(s);
writeln('Trong chuoi ',s,' co ',d,' ki tu');
writeln('Chuoi dao cua chuoi ',s,' la: ');
for i:=d downto 1 do
write(s[i]:4);
writeln;
dem:=0;
for i:=1 to d do
if s[i] in ['0'..'9'] then inc(dem);
writeln('So chu so trong xau la: ',dem);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
string a,b;
void replaceSubstring(string& a, const string& b) {
size_t pos=0;
while((pos=a.find(b,pos))!=string::npos) {
a.replace(pos,b.length(),"ABC");
pos+=3;
}
}
int main()
{
cin>>a>>b;
if(a.find(b)!=string::npos){
cout<<"YES"<<endl;
replaceSubstring(a,b);
cout<<a;
}else{
cout<<"NO"<<endl;
cout<<a;
}
return 0;
}
PROGRAM XAU;
USES crt;
VAR N1 ; N2 : String;
a ; i :Bytbe;
BEGIN
clrscr;
write(' Nhap xau N1:') ; Readln(N1);
N2:=' ';
for i:=1 to Length(N1) do
If ( 'a'<=N1
moa cai dau doi ty qua kia lam
#include <bits/stdc++.h>
using namespace std;
string a[1000],t,ln;
int n,i;
int main()
{
cin>>n;
for (i=1;i<=n; i++) cin>>a[i];
ln='';
for (i=1; i<=n; i++) if (ln<a[i]) ln=a[i];
t='';
for (i=1; i<=n; i++) t=t+a[i];
cout<<ln<<" "<<t;
return 0;
}
Để chuẩn hóa xâu kí tự, ta sẽ loại bỏ các ký tự trống ở đầu và cuối xâu, sau đó loại bỏ các ký tự trống kề liền.
Để tìm số lượng kí tự chữ số trong xâu, ta sẽ duyệt qua từng ký tự của xâu và kiểm tra xem ký tự đó có phải là chữ số không.
Code Python để thực hiện yêu cầu đề bài như sau:
pythondef chuan_hoa_xau(s): # Xóa khoảng trắng ở đầu và cuối xâu s = s.strip() # Loại bỏ khoảng trắng kề nhau i = 0 while i < len(s) - 1: if s[i] == ' ' and s[i+1] == ' ': s = s[:i] + s[i+1:] else: i += 1 return s def dem_chu_so(s): count = 0 for c in s: if c.isdigit(): count += 1 return count # Đọc xâu kí tự từ input s = input() # Chuẩn hóa xâu s_chuan = chuan_hoa_xau(s) # Tìm số lượng kí tự chữ số so_luong_chu_so = dem_chu_so(s_chuan) # In ra kết quả print(s_chuan) print(so_luong_chu_so)Ví dụ:
Input:
csharpThis is an example 1234 string .Output:
csharpThis is an example 1234 string. 4a) Ban đầu đề A là số còn B là xâu sao trong yêu cầu lại đổi vị trí cho nhau vậy nhỉ?
b) Xâu thay thế cái gì bạn, hình như đề còn thiếu bạn kiểm tra lại nhé.
Viết chương trình C++ nhập vào 1 xâu A bất kì và một xâu B a) kiểm tra xem xâu B có trong xâu A không b)Nếu có thì thay thế tất cả các xâu B trong A bằng xâu "ABC".In ra màn hình dòng thứ nhất là kết quả của câu a, dòng thứ hai là kết quả của xâu sau khi thay thế.
( Dạ, sửa lại rồi ạ! )
program doixung;
var
str, reverseStr: string;
i, count, maxWordLength: integer;
words: array of string;
begin
write('Nhập vào một xâu kí tự: ');
readln(str);
reverseStr := '';
for i := length(str) downto 1 do
reverseStr := reverseStr + str[i];
if str = reverseStr then
writeln('Xâu là đối xứng')
else
begin
writeln('Xâu không đối xứng');
writeln('Xâu đảo ngược: ', reverseStr);
end;
count := 0;
maxWordLength := 0;
SetLength(words, 0);
while Length(str) > 0 do
begin
i := Pos(' ', str);
if i = 0 then
i := Length(str) + 1;
if i - 1 > maxWordLength then
maxWordLength := i - 1;
SetLength(words, Length(words) + 1);
words[Length(words) - 1] := Copy(str, 1, i - 1);
Delete(str, 1, i);
Inc(count);
end;
writeln('Số từ trong xâu: ', count);
writeln('Từ dài nhất: ', maxWordLength);
end.