Найти и вывести все числа строки. Если их нет, то сообщить. (Pascal)
Найти и вывести все числа строки. Если их нет, то сообщить. (Pascal)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы