Bài 3:
Viết chương trình nhập vào chuỗi bất kì S sau đó in ra màn hình 2 kết quả: chuỗi con gồm các ký tự trong chuỗi S và tổng các giá trị của các ký tự là số trong chuỗi S
Ví dụ:
S = ’A312BC24DE’
S1= ABCDE
Tổng = 3+1+2+2+4=12
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;
int main() {
string str;
getline(cin, str);
string ans = "";
for (char c : str) {
if (!isdigit(c)) {
ans += c;
}
}
cout <<ans;
}
Theo mk là như v
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
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.
def dem_so_tu(chuoi):
dem = 0
tu = chuoi.split()
for word in tu:
if word.isalpha():
dem += 1
return dem
chuoi = input("Nhập một chuỗi: ")
so_tu = dem_so_tu(chuoi)
print("Số từ trong chuỗi là:", so_tu)
Bài 2:
#include <bits/stdc++.h>
using namespace std;
string st;
int d;
int main()
{
getline(cin,st);
d=st.length();
cout<<d;
return 0;
}
Bài 1:
Var so,i,n,dem:integer;
Begin
Write('Nhap so luong so n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(so);
If so mod 2 = 0 then dem:=dem+1;
End;
Write('Co ',dem,' so chan');
Readln;
End.
Bài 2:
Var st:string;
Begin
Write('Nhap vao xau ki tu ');readln(st);
Write(' Xau vua nhap co do dai la ',length(st));
Readln;
End.
def tach_chuoi(chuoi):
ky_tu_so = " "
ky_tu_chu = " "
for ky_tu in chuoi:
if ky_tu.isdigit():
ky_tu_so += ky_tu
elif ky_tu.isalpha():
ky_tu_chu += ky_tu
return ky_tu_so, ky_tu_chu
chuoi = input("Nhập vào một chuỗi: ")
ky_tu_so, ky_tu_chu = tach_chuoi(chuoi)
print("Các ký tự số trong chuỗi:", ky_tu_so)
print("Các ký tự chữ cái trong chuỗi:", ky_tu_chu)
Câu 2:
uses crt;
var a,b:array[1..100]of integer;
i,n,t,dem,j,kt,dem1:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
dem:=1;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[j]=a[i] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if a[j]=b[i] then inc(dem1);
writeln(b[i],' xuat hien ',dem1,' lan');
end;
readln;
end.