Question

[Nguyễn Thị Hòa]

            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.

Answer 1

[Anh Phạm]

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.