Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Юлясруля
08.10.2020 18:49 •
Информатика
Одна название модели транспортного робота
Показать ответ
Ответ:
ПомидоркаЛ
09.08.2020 11:29
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ
0,0
(0 оценок)
Ответ:
slava531
09.08.2020 11:29
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ
0,0
(0 оценок)
Популярные вопросы: Информатика
faire6
01.12.2020 06:46
Расположите величины в порядке убывания: 1024 бита 1000 байтов 1 бит 1 байт 1 кбайт...
sludkov
01.12.2020 06:46
Кто придумал двоичный код ,зачем? как создавался двоичный код (человек ,что всё...
belovavaleriya
26.02.2023 05:48
Дан массив а из 20 элементов. найти сумму первых 10 элементов массива и следующих 10 элементов массива. результат вывести на печать....
Мастер008
01.01.2020 02:41
Домашнее задание No 11 1. Текст занимает полных 10 страниц. На каждой страницеразмещается 40 строк по 70 символов в строке. Какой объемоперативной памяти (в байтах) займет...
12рок1
17.01.2020 15:53
Таблиця реляційної бази даних складається з ...
Excellent11
14.12.2021 20:30
семетриялы және асеметриялы заттарға мысалдар келтір Сурет салу барысында қай заттарды салу тиімді әрі тез...
marjanazagurska
29.03.2023 13:04
Покажите, как вставить порядковый номер...
pro63
15.08.2022 13:50
:1. в некотором каталоге хранился файл общая, имевший полное имя d: \фото\2012\общая. в этом каталоге создали подкаталог 9 класс и переместили в созданный подкаталог...
niknik14
05.10.2022 03:15
Используя оператор for, написать программу в Паскале, которая вычисляет среднее арифметическое положительных чисел в промежутке от М до Р, где М Р и М и Р положительные...
jurakos9
27.10.2021 21:02
Def add_two_nums(a,b): c=a+b print(c) add_two_nums(3,5) 8 напишите аргумент функции...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ