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.

D
datcoder
CTVVIP
16 tháng 10 2023

#include <bits/stdc++.h>

using namespace std;

string S;

int t=0;

int main(){

cin >> S;

for (int i=0;i<S.size();i++)

if (S[i]>='0'&&S[i]<='9')

t=t+int(S[i]-48);

cout <<t;

return 0;

}

10 tháng 2 2022

Tk:

undefined

uses crt;

var st:string;

i,d,t,x,y:integer;

begin

clrscr;

readln(st);

d:=length(st);

t:=0;

for i:=1 to d do 

  if (st[i] in ['0'..'9'])  then

begin

val(st[i],x,y);

t:=t+x;

end;

writeln(t);

readln;

end.

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

writeln('Cac ki tu so co trong xau S:'); 

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do 

  if s[i] in ['0'..'9'] then s[i]:='A';

writeln('Xau sau khi doi la: ',s);

readln;

end.

25 tháng 7 2021

uses crt;

var s:string;

i,tong,x,code:integer;

f,g:text;

k:boolean;

const fi='XAU.INP';

          fo='XAU.OUT';

begin

k:=false;

assign(f,fi); reset(f);

assign(g,fo); rewrite(g);

readln(f,s);

tong:=0;

for i:=1 to length(s) do

begin

if s[i] in ['0'..'9'] then

begin

k:=true;

val(s[i],x,code);

tong:=tong+x;

x:=0;

cod:=0;

end;

end;

if k=false then writeln(g,'Sai yeu cau')

else

begin

writeln(g,s);

writeln(g,tong);

end;

close(f);

close(g);

end.

uses crt;

var s1,s2:string;

i,j,d1,d2:integer;

begin

clrscr;

readln(s1,s2);

d1:=length(s1);

d2:=length(s2);

for i:=1 to d1 do 

  if not(s1[i] in ['0'..'9']) then delete(s1,i,1);

for i:=1 to d2 do 

  if not(s2[i] in ['0'..'9']) then delete(s2,i,1);

writeln(s1);

writeln(s2);

writeln(s1+s2);

readln;

end.

20 tháng 8 2023

Làm bằng pascal nha

 

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