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.

22 tháng 3 2023

a/ var s: string;

b/ readln(s);

c/ write(length(s));

d/ for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]);

10 tháng 7 2023

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

}

11 tháng 7 2023

Đầu vào là #include<bits/stdc++.h> mà bn

30 tháng 3 2023

a = input("Nhập chuỗi A: ")

b = input("Nhập chuỗi B: ")

# Tìm độ dài chuỗi dài nhất 

max_length = max(len(a), len(b))

# Đếm số khoảng trắng trong chuỗi dài nhất

max_spaces = 0

for char in (a + b):

     if char == ' ':

          max_spaces += 1

# Ghép chuỗi ngắn vào chuỗi dài hơn ở vị trí cuối cùng

if len(a) < len(b):

     a += b[-(len(b) - len(a)):]

else:

     b += a[-(len(a) - len(b)):]

# Xuất kết quả ra màn hình

print("Số khoảng trắng trong chuỗi dài nhất là:", max_spaces)

print("Chuỗi sau khi ghép là:", a + b)

9 tháng 3 2023

xau = input('Nhập vào một xâu: ')

# In ra xâu đó theo thứ tự ngược lại

xau_nguoc = xau[::-1]

print('Xâu đảo ngược: ', xau_nguoc)

# Đưa ra độ dài của xâu

do_dai = len(xau)

print('Độ dài của xâu: ', do_dai)

# Đếm số lượng ký tự 'a' có trong xâu

so_luong_a = xau.count('a')

print('Số lượng ký tự a trong xâu: ', so_luong_a)

13 tháng 2 2022

uses crt;

var a,b,c:string;

i,d1,d2:integer;

begin

clrscr;

write('Nhap xau a:'); readln(a);

write('Nhap xau b:'); readln(b);

d1:=length(a);

d2:=length(b);

writeln('Tong do dai hai xau la: ',d1+d2);

c:=#32;

for i:=1 to d1 do 

  if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];

for i:=1 to d2 do 

  if b[i] in ['0'..'9'] then c:=c+b[i];

writeln('Xau c la: ',c);

readln;

end.

13 tháng 2 2022

Làm vậy sẽ thừa 1 kí tự trắng ở đầu tiên trong xâu C bạn nhé. Bạn nên gán c:=''; là OK nhất. Nhưng bài làm bài cũng rất tốt^^, mình chỉ góp ý lỗi sai nhỏ, chúc bạn học tốt ^^.

24 tháng 5 2022

program bai1;
uses crt;
var i:integer;
s,s1:string;
begin
  clrscr;
  write('nhap S:');readln(s);
  while pos('C',s)<>0 do
  begin
    insert('LOP11A',s,pos('C',s));
    delete(s,pos('C',s),1);
  end;
  writeln('xau sau khi bien doi la: ',s);
  writeln('do dai cua xau tren la: ',length(s));
  write('nhap s1:');readln(s1);
  if s1[1]=s[1] then writeln('ki tu dau cua hai xau trung nhau')
  else writeln('ki tu dau cua hai xau khong trung nhau');
  readln;
end.