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

Question

Информатика

Мишара

15 октября, 20:42

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

+4

Ответы (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.