Ответы и объяснения

  • jd42
  • середнячок
2013-10-21T12:47:27+04:00
Var
 st:string;
i:byte;

begin
 readln(st);//вводим строку
write('Числа имеющиеся в тексте: ');
for i:=1 to length(st) do
 if (st[i] in ['1'..'9']) then write(st[i]); //если текущий символ принадлежит ко множеству чисел  -то выводим его 
end.