Дана строка, состоящая из символов. Удалить из этой строки все цифры, записав в другую строку

@dakwol · Регистрация: 25.11.2019

Проблема в том, что я не знаю как в строке a := ord('0') div 10; сделать перечисление от 0 до 9 чтобы присваивались разные элементы

Pascal

program lab7;
 
var s:string;
str:string;
 
function strok (var s:string):string;
var a,b:longint;i:word;
      begin
        readln(s);
        str := '';
        for i:=1 to length(s) do 
          if s[i] in (['0'..'9']) then begin
            
            a := ord('0') div 10;
           
            b := ord('0') mod 10;
 
      
                str := str+char(ord('0')+a);
            
 
                str := str+char(ord('0')+b);
 
                 end
          else 
            str := str+s[i];
          writeln(str);
     
      end;
  begin
    strok(s);
  end.

@Puporev · 26.11.2019, 07:28

Сообщение от dakwol

Удалить из этой строки все цифры, записав в другую строку

Pascal

var s1,s2:string;
      i:integer;
...................................
s2:='';
for i:=length(s1) downto 1 do
if s1[i] in ['0'..'9'] then
 begin
  s2:=s1[i]+s2;
  delete(s1,i,1);
 end;

Опции темы