составить программу для решения следующей задачи. из строки выбрать все цифры и...

Question

составить программу для решения следующей задачи. из строки выбрать все цифры и сформировать другую строку
S=sdfg745tg2345dfg74
M=7452234574

Answer 1

var
i:integer;
s,m:string;
begin
readln(s);

for i:=1 to Length(s) do
  if s[i] in ['0'..'9'] then m:=m+s[i];

write(m);
end.