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

Question

Информатика

Ладонька

15 июля, 13:09

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

+4

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