Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Groyve1
02.09.2021 10:58 •
Информатика
Найти и вывести все числа строки. если их нет, то сообщить. (pascal)
Показать ответ
Ответ:
Dasha1648938190
22.06.2020 08:28
Var a, b: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] in ['0'..'9']) then b := b + a[i];
if (length(b) = 0) then
Writeln('{ No nums }')
else
Writeln(b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
NAREK097
19.05.2021 09:18
Какие из ниже величин целесообразно представлять с таблиц? величины: список учеников класса, рост учеников класса, средний рост учеников класса, оценка ученика...
llallallup
13.05.2022 02:48
Середовище виконання Python Створіть нове вікно tkinter та багаторядкове текстове поле. Розміри вікна та атрибути текстового поля вказати самостійно. В текстове...
fenx73
29.07.2022 21:16
Середовище виконання Python Створити проект, у якому є 1 кнопка, 1 багаторядкове поле введення інформації та 1 напис. Ім я користувача вводиться у текстове поле....
sashasas12365
15.02.2020 20:27
Задача 2. Составить программу, решающую следующую задачу: Дано число а. Не пользуясь никакими другими операциями ,кроме умножения получить : а в 20 степени за 5...
Диана135793
07.05.2022 20:45
Составьте из символов f 4 5 . E a 9 – по два примера лексических единиц: - целые числа - вещественные числа - идентификаторы - строки...
kingrmntc
13.12.2021 00:36
Контрольная работа по информатике (9 класс) Задача № 1 Напишите компьютерную программу на Паскале, которая создает массив из 10 элементов, тип массива - целочисленный...
Valentinka14485
22.01.2020 19:44
Составить программу для вычисления матрицы В={bij}, равной произведению числа на матрицу А={aij}. Каждый элемент матрицы В вычисляется по формуле bij=aij, i,...
Litegran
27.12.2021 11:24
Вариант 24.Три точки заданы своими координатами x={x1,x2}, y={y1,y2}, z={z1,z2}. Выдать на печать координаты этих точек по возрастанию угла меж¬ду¬ осью абсцисс...
Dasharozzz321
22.01.2020 19:44
Даны два одномерных массива а и в, состоящих из n вещественных элементов, вычислить:1. Вычислить разность соответствующих элементов массивов.2. Вычислить сумму...
ерик12840
10.05.2023 03:05
Функция задана уравнением у=х^2+12х+11 Определите координаты вершины параболы В какой точке график данной функции пересекает ось OY? Найдите точки пересечения графика...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] in ['0'..'9']) then b := b + a[i];
if (length(b) = 0) then
Writeln('{ No nums }')
else
Writeln(b);
end.