K
Khách

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 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.

 
24 tháng 8 2021

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.

31 tháng 8 2021

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. 

15 tháng 1 2021

Bạn ơi cho mình hỏi sao bạn còn thiếu chỗ câu c hay sao?Hình như bạn chưa làm câu c  đúng không ạ.

19 tháng 10 2023

#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;
}

21 tháng 2 2022

zời zăm ba cái program:>

21 tháng 2 2022

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;

}

21 tháng 2 2022

có chương trình bằng pascal không ạ

20 tháng 2 2023

Để 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. 4
D
datcoder
CTVVIP
18 tháng 10 2023

a) 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é.

18 tháng 10 2023

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 ạ! )