Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Димасик1111111111
26.09.2022 01:55 •
Информатика
Составить программу в pascal 1)в строке , введенной с клавиатуры , все буквы и заменить на % 2)из строки, введенной с клавиатуры , удалить все символы ,начиная с середины.
Показать ответ
Ответ:
maksCRAFTer
21.07.2020 09:29
1)
var
s:string;
i:longint;
begin
read(s);
for i:=1 to length(s) do
if s[i]='И' then s[i]:='%';
writeln(s);
end.
2)
var
s:string;
l:longint;
begin
read(s);
l:=length(s);
delete(s, (l div 2)+1, l-(l div 2));
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ahhasamsonova
12.09.2022 19:14
Кто играет в roblox пишите ники мой kirilasa13245 пишите вместе играть будем мне 11...
daanya666
06.11.2020 03:51
В нашем классе 28 учащихся. На экскурсию в музей ходили 9 человек, в кино и в музей — 7 человек, в кино ходили 7. Сколько человек из нашего класса не ходили ни в...
Даша5391
13.10.2022 04:52
що буде відображено після виконання наведеного фрагмента коду?b=1a=b+2a = a + bprint( a= /a)a =...
73Женя91
22.01.2023 05:27
Решите уравнение: 5/7( 3,5 - 8 2/5d ) = 9,4 - 2,6( 0,5d - 25/26)...
vadi96356
14.06.2021 12:22
Система состоит из 5-и независимых элементов и может работать в двух режимах: нормальном и с перегрузкой. Надежности элементов соответственно равны: при нормальном...
Дашулька150504
14.06.2021 12:22
В остроугольном треугольнике КВС KD ⊥ ВС, CF ⊥ КВ, КD пересекает CF в точке М. Докажите, что ∠ КВМ = ∠ МСК....
ВетаКлойзен54
12.07.2021 05:25
ХЕЛП НАПИШИТЕ ТОЧНУЮ ФОРМУЛИРОВКУ ЗАДАЧИ program ex_4;var i, n: byte; k: integer; a: array[1..120] of integer;begin . randomize;write( сколько элементов в массиве?...
Лина7839
02.07.2021 03:23
Какие черты характера раскрываются в образе Кузьмы Никифоровича Удальцова?...
3339991
20.11.2021 21:28
Чем наполеоновская империя отличалась от других империй подробнее...
jiyan
20.11.2021 21:28
До ть, будь-ласкаПроведіть дослідження й дайте відповідь на запитання: «Яким чином київський будинок, зображений на фотографії, увійшов в історію України?»....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
s:string;
i:longint;
begin
read(s);
for i:=1 to length(s) do
if s[i]='И' then s[i]:='%';
writeln(s);
end.
2)
var
s:string;
l:longint;
begin
read(s);
l:=length(s);
delete(s, (l div 2)+1, l-(l div 2));
writeln(s);
end.