Добрый вечер )) решит данную )) на множества: дана строка из букв латинского алфавита, цифр, букв и знаков препинания. вырезать из строки цифры и записать их а отдельную строку в том же порядке, в каком они были расположены в исходной. вывести на печать содержимое полученных строк. входные данные: исходная строка vv1, 32qq1/4b5b45! выходные данные: две полученные строки 13214545 vv, qq/bb45! за ране

132

269

Посмотреть ответы 2

Ответы на вопрос:

maximpopov2001

Информатика

4,4(97 оценок)

Var s, sd, so: string; digits: set of '0'..'9'; i: integer; begin writeln('введите текстовую строку'); readln(s); digits : = ['0'..'9']; sd : = ''; so : = ''; for i : = 1 to length(s) do if s[i] in digits then sd : = sd + s[i] else so : = so + s[i]; writeln('результат: '); writeln(sd); writeln(so) end. тестовое решение: введите текстовую строку vv1, 32qq1/4b5b45! результат: 13214545 vv, qq/bb!