Дан текст. напечатать все имеющиеся в нем цифры

Question

Информатика

Виолетка

6 сентября, 14:33

Дан текст. напечатать все имеющиеся в нем цифры

+5

Ответы (1)

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

Гаврила · Answer 1

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.