Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Лкь4иц
18.10.2022 15:42 •
Информатика
Встроке s1 заменить нечётные символы на строку s2. программа в паскале
Показать ответ
Ответ:
123abcde6
05.10.2020 18:09
Var
S1,S2,S3:string;
i:integer;
Begin
Write('S1: ');ReadLn(S1);
Write('S2: ');ReadLn(S2);
For i:= 1 to Length(S1) do
if i mod 2 = 0 then S3:=S3+S2
else S3:=S3+S1[i];
S1:=S3;
Write('S1: ',S1);
End.
Пример:
S1: 123456789
S2: ||
S1: 1||3||5||7||9
0,0
(0 оценок)
Популярные вопросы: Информатика
popravkinaekaterina
11.07.2022 11:58
Алгоритм включает в себя ветвление если .а)цикл , б)ветвление ,в)подпрограмма г)линейная....
denis14882
07.01.2023 02:44
Исправить) в 5 строке пишет, что ожидалось константное выражение, не знаю как исправить uses crt; var v1,v2,v,r1,r2,r,h : real; const pi=3.14 ; write=( r1= ); readln=(r1); write=(...
Olesyaaaaaa1
25.01.2023 22:32
Суретте қандай байланыс түрі көрсетілген?...
Kokone143
13.05.2021 03:58
Стрелка прибора вращается с постоянной скоростью, совершая w оборотов в секунду (не обязательно стрелка прибора, может быть это волчок в игре «Что? Где? Когда?» и т.п.) Угол поворота...
AmitJK
08.03.2020 08:14
Чем?Азирет имя девочек или мальчиков?...
EkaterinaZeyb
14.10.2022 19:19
задание: 1. создайте папки большой файл и маленький файл,соотаетственно записав туда файлы большого и маленького размера. 2.выполните архивацию файлов в папках,используя разные...
АлексаLove06
11.07.2020 00:48
восстановите последовательность этапа компьютерного эксперимента:1)построение математической модели 2)разработка алгоритма 3) выбор метода решения 4) анализ решения 5)исполнения...
Augustine1234ma
11.07.2020 00:48
Можно ли считать синонимами прикладную и компьютерную лингвистику? Аргументируйте свой ответ. ...
Radigon
01.01.2023 20:08
Максимальная скорость передачи данных по некоторому соединению составляет 8192*10 в квадрате бит/с. Какое максимальное количество информации можно передать за 5 секунд по этому...
Kseniya204
20.01.2020 18:41
сколько существует различных последовательностей из символов + и - длиною 5 символов этого алфавита? выпишите все коды...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
S1,S2,S3:string;
i:integer;
Begin
Write('S1: ');ReadLn(S1);
Write('S2: ');ReadLn(S2);
For i:= 1 to Length(S1) do
if i mod 2 = 0 then S3:=S3+S2
else S3:=S3+S1[i];
S1:=S3;
Write('S1: ',S1);
End.
Пример:
S1: 123456789
S2: ||
S1: 1||3||5||7||9