Дан текст.напечатать все имеющиеся в нем цифры
Дан текст.напечатать все имеющиеся в нем цифры
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы