Найти и вывести все числа строки. Если их нет, то сообщить. (Pascal)

Question

Информатика

Арефий

4 апреля, 05:57

Найти и вывести все числа строки. Если их нет, то сообщить. (Pascal)

+5

Ответы (1)

Знаете ответ на вопрос?

Рема · Answer 1

Var a, b: string;

i: integer;

begin

readln (a) ;

for i : = 1 to length (a) do

if (a[i] in ['0' ... '9']) then b : = b + a[i];

if (length (b) = 0) then

Writeln ('{ No nums }')

else

Writeln (b) ;

end.