Viết chương trình con nhập vào xâu S. In ra màn hình xâu số, xâu chữ và tổng các con số của xâu số. Giúp e vs ạ
Viết chương trình con nhập vào xâu S. In ra màn hình xâu số, xâu chữ và tổng các con số của xâu số. Giúp e vs ạ
By Margaret
By Margaret
Viết chương trình con nhập vào xâu S. In ra màn hình xâu số, xâu chữ và tổng các con số của xâu số. Giúp e vs ạ
uses crt;
var s:string;n,i,t:longint;
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
write(‘Xau chu: ‘);
for i:=1 to length(s) do
begin
if s[i] in [‘a’..’z’] then write(s[i]);
if s[i] in [‘A’..’Z’] then write(s[i]);
end;
writeln;
write(‘Xau so: ‘);
for i:=1 to length(s) do
begin
if s[i] in [‘0’..’9′] then write(s[i]);
end;
writeln;
for i:=1 to length(s) do
begin
if s[i] in [‘0’..’9′] then
begin
val(s[i],n);
inc(t,n);
end;
end;
writeln(‘Tong xau so: ‘,t);
readln
end.
program Xau;
const max = 100000;
var
S: string;
tong, i, c: Word;
Begin
readln(S);
tong:= 0;
for i:= 1 to length(S) do
Begin
if S[i] in [‘1’..’9′] then
Begin
val(s[i], c);
tong:= tong + c;
delete(S, i, i);
End;
End;
writeln(tong);
writeln(S);
End.