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 ạ

0 bình luận về “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 ạ”

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

   Bình luận

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

   Bình luận