Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Влад09090
08.02.2022 01:32 •
Информатика
Дан текст.напечатать все имеющиеся в нем цифры
Показать ответ
Ответ:
Hdjfhdhe73747
21.06.2020 06:51
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
незринхорошист2
22.06.2020 15:26
ТЕКСТ ЗАДАНИЯ Определите последствия, к которому приведет нарушения правил техники безопасности при работе закомпьютером.Верных ответов: 2Долгое время, проведенное за компьютером,...
IVANICH31
04.05.2020 06:54
Информатика 8 класс тест 1.система счисления это а)правила выполнения операций над числами б)правила записи чисел в) 1 и 2 г)нет верного ответа...
Стерва12345
07.07.2020 20:30
1. Інформаційні технології це: а) системи, що застосовуються в системах управління базамиданихб) технології та засоби, що забезпечують та підтримуютьінформаційні процеси.в) процеси...
zhdiana0706
22.12.2020 00:16
Видеожазба деген не?...
анжела286
16.07.2021 21:08
Компьютерное представление беззнакового целого числа 00111110. Данное компьютерное представление пятнадцатиразрядное восьмиразрядное шестнадцатиразрядное двухразрядное Целыми...
капллпвраае1
10.04.2020 16:42
решить ребус по информатике...
Грихыч2002
21.04.2021 20:57
Номера 1, 2, 3, 4, 5, 6, 7 на рис. 3.42 указывают на названия элементов диаграммы. Выпишите их и объясните, с какой целью эти элементы диаграммы используются.HELP ME...
pasha268
19.11.2021 18:51
пока кр идет нужно решить.. 1) Составьте блок схему для следующей задачи: Найти значение функции y=2x+x^2+5 2) Постройте граф к следующему математическому выражению: (6-(4+7))*(9-1)...
СлавикАлина
24.09.2020 12:06
по ифне вывести случайным образом элементы 3 строки 7 столбцов. Двумерный массив...
liza20038333
28.08.2020 15:12
Как называется объект, который служит основой для создания модели?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.