Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Comicsans123
02.04.2021 22:38 •
Информатика
Дано предложение. удалить из него все цифры.
Показать ответ
Ответ:
Dobriyboy
02.10.2020 03:03
Program enot;
Var s: string;
i,n:integer;
begin
write('введите предложение: ');
read(s);
n:= length (s);
for i:= 1 to n do
case s[i] of
'0': delete (s,i,1);
'1': delete (s,i,1);
'2': delete (s,i,1);
'3': delete (s,i,1);
'4': delete (s,i,1);
'5': delete (s,i,1);
'6': delete (s,i,1);
'7': delete (s,i,1);
'8': delete (s,i,1);
'9': delete (s,i,1);
end; writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
karolinaskinger
14.12.2022 11:02
Необходимо реализовать эти примеры, но теперь, при команды input() Например:...
alixegp073ii
06.02.2020 11:00
1. Что такое приводная платформа? 2. Какую программу нужно использовать для конструиро-вания приводной платформы?3. Рассмотри рисунок. На сколько градусов должен повер-Отвечаем...
Артём0Болдырев
01.01.2020 12:38
Доклад об использовании роботов в различных сферах деятельности,...
тимур618
27.04.2021 17:37
У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b (b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает...
Вета111111111111
20.07.2020 06:06
1. Сколько раз будет выполнен следующий цикл (развернутый ответ с пояснениями): а) i:=21; repeat i:=i-5 until i 21; б) for m:=2 to 11 begin writeln (m); m:= m+3 end;...
angelinalitvine
17.03.2022 09:42
Определите, что будет напечатано в результате работы следующей программы. (Каждый шаг алгоритма расписать, «как считали» и записать ответ).Var s, k: integer;Begins :=...
мик150
23.07.2020 01:34
Внимательно рассмотрите числа, расположенные в каждом из рядов, и определите, какое число является лишним . Будьте готовы обосновать свой выбор.а) 2,3,6,7,11;б) 18,12,3,29,45,28;в)...
nurmakhanovna02
05.07.2020 06:01
Востоновите IP-адрес . 75 21 3.21 9.255...
Maria123456789101
15.02.2021 01:06
Напишите правильный ответ на фотке...
Bibi123456
28.08.2022 04:32
Для расчета итоговой суммы в столбце ноябрь в ячейку Е9 электронной таблицы введена формула... 1)сумм(Е3:Е8) 2) сумм(Е3,Е8) 3) сумм(Е3-Е8) 4)сумм(Е3;Е8)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var s: string;
i,n:integer;
begin
write('введите предложение: ');
read(s);
n:= length (s);
for i:= 1 to n do
case s[i] of
'0': delete (s,i,1);
'1': delete (s,i,1);
'2': delete (s,i,1);
'3': delete (s,i,1);
'4': delete (s,i,1);
'5': delete (s,i,1);
'6': delete (s,i,1);
'7': delete (s,i,1);
'8': delete (s,i,1);
'9': delete (s,i,1);
end; writeln(s);
end.