cho 1 dãy xâu,hãy cho biết tổng của các số trong xâu đó,biết các số trong xâu đó ko quá 18 chữ số.(c++)
mọi người giúp e vs ạ
Viết chương trình nhập vào 1 xâu, hãy cho biết tổng của các số trong xâu. (Pascal ) VD: abc1eg22kh123
= 1+22+123=146
CíuuuuuT_T
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.
Mọi người giải giúp mình Bài Tập này với ạ! Mình xin cảm ơn nhiều: Bài tập: Viết chương trình nhập từ bàn phím một xâu kí tự S. Viết ra màn hình: - Các kí tự số có trong xâu S - Số lượng các kí tự số có trong xâu S. - Thay tất cả các kí tự số đó bằng kí tự ‘A’.
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.
1.Viết hàm cho biết xâu S1 có xuất hiện trong xâu S2 không?
2.Viết hàm chèn câu S1 vào S2 từ vị trí thứ 6?
3. Đếm xem có bao nhiêu kí tự là chữ số trong xâu S2
(Mọi người ơi giúp mình với ạ, mai mình thì rồi)
Cho một xâu kí tự S không quá 255 kí tự gồm kí tự chữ cái và kí tự chữ số. Hãy in ra xâu vửa nhập và tính tổng các kí tự chữ số có trong xâu. Ngược lại nếu xâu chỉ gồm kí tự chữ cái hoặc chỉ gồm kí tự chữ số thì in ra “Sai yeu cau! Khong thuc hien!”.
- Dữ liệu vào: Cho trong file XAU.INP gồm 1 dòng duy nhất là xâu S.
- Dữ liệu ra: Ghi vào file XAU.OUT theo cấu trúc: Gồm 2 dòng:
+ Dòng thứ nhất: Ghi ra xâu vừa nhập.
+ Dòng thứ hai ghi tổng các kí tự chữ số của xâu S.
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.
Viết chương trình kiểu xâu bất kì,và thực hiện các uêu cầu sau :
a, Cho biết trong sâu đo scó bao nhiêu kí tự là chữ số trong xâu
b, Cho biết xâu đó có bao nhiêu từ
c, In ra màn hiình từ có độ dài lớn nhất trong xâu
d, Xóa bỏ các kí tự là số có trong xâu và in xâu mới ra màn hình
vViết chương trình nhập vào hai xâu s1,s2 không quá 255 kí tự.Thực hiện xoá các kí tự không phải là kí tự chữ số trong hai xâu.Sau đó,tính tổng hai xâu đó.
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.
Mong mọi người giúp em ạ. Em cảm ơn 1/viết phương trình nhập vào một xâu xuất xâu vừa nhập sang chữ hoa 2/ viết phương trình nhập vào mảng 1 chiều gồm một dãy số nguyên. đếm xem có hai nhiều số dương trong dãy vừa nhập
Cho xâu S gồm các kí tự chữ thường,in hoa và các kí tự số. Hãy lập xoa các kí
tự số liên tục trong xâu đó chỉ để lại kí tự số nhỏ nhất
Input | Output |
ABS5341hys738kih762 | ABS1hys3kih2 |
Viết chương trình: A. Nhập vào từ bàn phím 2 xâu a, b ( chứa các chữ thường ) và thông báo ra màn hình tổng độ dài của 2 xâu B. Tạo xâu c gồm các chữ cái từ xâu a và các chữ số từ xâu b. Đưa xâu c lên màn hình
Các anh chị giải giúp em với ạ
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.