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.
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i;
int main()
{
getline(cin,st);
d=st.length();
for (i=0; i<=d-1; i++)
if ((st[i]==' ') and (st[i+1]=' ')) st.erase(i,1);
cout<<st;
return 0;
}
program ChuyenXauSangChuThuong;
var
str: string;
i: integer;
begin
write('Nhap mot xau ky tu: ');
readln(str);
for i := 1 to Length(str) do
str[i] := LowerCase(str[i]);
writeln('Xau ky tu chuyen thanh chu thuong la: ', str);
end.
Để 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. 4viết chương trình nhâp vào hai xâu,in ra xâu tổng của hai xâu đó,đếm và in ra số kí tự của xâu tổng.
uses crt;
var s1,s2:string;
begin
clrscr;
readln(s1,s2);
writeln(s1+s2);
writeln(length(s1+s2));
readln;
end.
Program hotrotinhoc;
var s: string;
t,c,i: byte;
begin
write('Nhap s:'); readln(s);
t:=0;
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then
begin
val(s[i],c);
t:=t+c;
end;
write(t);
readln
end.
Thu gọn
PROGRAM In_Ma_Khoa;
USES crt;
VAR s:string;
Procedure Tong(x:string);
Var s2,i,s1,code:integer;
Begin
s2:=0;
for i:=1 to length(x) do
begin
val(x[i],s1,code);
s2:=s2+s1;
end;
write(s2);
End;
BEGIN
clrscr;
write('Nhap xau s:'); readln(s);
write('Ma khoa cua xau ki tu la:');
Tong(s);
readln;
END.
TONGXAU
const
fi='tongxau.inp';
fo='tongxau.out';
var
f:text;
a:array[1..32000] of char;
t,s,so,nul,i,n:integer;
procedure inp;
begin
assign(f,fi);
reset(F);
n:=0;
while not(eof(f)) do
begin
inc(n);
read(f,a[n]);
end;
close(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
i:=1 ;
s:=0;
while i<=n do
begin
t:=0;
while a[i] in ['0'..'9'] do
begin
val(a[i],so,nul);
t:=t*10+so;
inc(i);
end;
s:=s+t ;
inc(i);
end;
write(f,s);
close(f);
end;
BEGIN
INP;
OUT;
END.