Отфильтровать из строки числа

Вводится строка, содержащая буквы, целые неотрицательные числа и иные символы. Требуется все числа, которые встречаются в строке, поместить в отдельный целочисленный массив. Например, если дана строка «data 48 call 9 read13 blank0a», то в массиве должны оказаться числа 48, 9, 13 и 0.

Если очередной символ строки оказывается цифрой (принадлежит диапазону от ‘0’ до ‘9’), то его надо добавить в отдельную изначально пустую строку. Проверяя последующие после него символы на принадлежность тому же диапазону, добавлять их в конец той же строки. Это следует делать до тех пор, пока очередной символ окажется не цифрой. В этом случае надо сформированную до этого строку из цифр преобразовать в число и добавить в целочисленный массив. Саму же строку «очистить», т.е. присвоить пустую строку.

Pascal



var
int: array[1..10] of integer;
i, j: integer;
strinput, str: string;
a: char;
n: byte;

begin
i := 1;
j := 1;
readln(strinput);
n := length(strinput);
while i <= n do begin
str := '';
a := strinput[i];
while (a >= '0') and (a <= '9') do begin
str := str + a;
i := i + 1;
a := strinput[i]
end;
i := i + 1;
if str <> '' then begin
val(str,int[j]);
j := j + 1;

end;
end;

for i := 1 to j - 1 do
writeln(int[i]);
end.



ab 56df ;s9 0 k
56
9
0

Python



s = input()
l = len(s)
integ = []
i = 0
while i < l:
s_int = ''
a = s[i]
while '0' <= a <= '9':
s_int += a
i += 1
if i < l:
a = s[i]
else:
break
i += 1
if s_int != '':
integ.append(int(s_int))

print(integ)



3 432 kdj3
[3, 432, 3]

Подписаться
Уведомить о
guest

0 комментариев
Межтекстовые Отзывы
Посмотреть все комментарии
Pascal


var
int: array[1..10] of integer;
i, j: integer;
strinput, str: string;
a: char;
n: byte;

begin
i := 1;
j := 1;
readln(strinput);
n := length(strinput);
while i = '0') and (a
Python


s = input()
l = len(s)
integ = []
i = 0
while i < l:
s_int = ''
a = s[i]
while '0'