Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
gay2002
05.05.2022 01:06 •
Информатика
Выбери основные элементы транзакции Blockchain Ethereum
хеш
данные в блоке
цепочка
формы децентрализации
👇
Увидеть ответ
Открыть все ответы
Ответ:
AlinaTishka
05.05.2022
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.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ
4,7
(67 оценок)
Ответ:
аза101
05.05.2022
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.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ
4,5
(45 оценок)
Это интересно:
К
Компьютеры-и-электроника
16.10.2021
Как использовать RealVNC: простой и эффективный способ удаленного управления компьютером...
Х
Хобби-и-рукоделие
23.06.2021
Как стать профессиональным игроком?...
К
Компьютеры-и-электроника
21.05.2022
Как восстановить игру League Of Legends: шаг за шагом...
З
Здоровье
27.06.2020
Как понизить артериальное давление быстро и эффективно?...
К
Кулинария-и-гостеприимство
06.05.2020
Как пить шотландский виски: лучшие способы и рекомендации...
Д
Дом-и-сад
30.08.2022
Узнайте, как избавиться от статического электричества в несколько простых шагов...
К
Кулинария-и-гостеприимство
11.04.2021
Как правильно хранить печенье макарон: советы и рекомендации...
К
Кулинария-и-гостеприимство
02.08.2022
Как приготовить рисовое молоко: рецепт и преимущества...
О
Образование-и-коммуникации
16.09.2020
Как перестать жалеть о своих решениях?...
З
Здоровье
04.03.2023
Как правильно накладывать повязку на вывихнутое плечо: подробный обзор и инструкция...
Новые ответы от MOGZ: Информатика
yarikmazai
27.08.2020
вычислите среднее арифметическое двух заданных вещесвенных чисел 5.5 и 2.5 пайтон...
svetaelia
26.04.2021
Дана блок-схема. Какое значение будет иметь z на выходе, если x = 13?...
mobilion2016
08.10.2020
Напишите программу на paskal...
MorozilkAAA
10.02.2023
Циклические алгоритмы ( решить 3мя с параметром, цикл-пока, цикл-до). составить алгоритм вычисления суммы и произведения ряда tg1, tg2, n...
fkbithxtvg
06.02.2023
40 какой тип имеет переменная f, если после выполнения оператора write (f) на экран было выведена следующая информация: a) m б) 3.14 в) 17 дан фрагмент программы: a: =6, b:...
xawodilal
06.05.2021
Расскажите об элементах таблицы. информатика 6 класс...
малинка188
18.01.2020
Что отличает систему перевода текста от электронного словаря? ...
frhjkvg11
23.07.2020
Вычислите отношения числа атомов натрия и кислорода в 200 г раствора нитрата, натрия с массовой долей соли 1,7%. ответ округлите до целых чисел...
hmg28409
14.05.2020
Сократите: 64a^12-b^9/ 64a^12-48a^8b^3+12a^4b^6-b^9 :...
tray5o3
14.05.2020
Определите количество корней уравнения sin2 x = √2cos x на промежутке [0; 2π)...
MOGZ ответил
Паскаль абц ввести несколько чисел. вывести числа от 20 до 75, кратные 4...
Выполните деление: а)2: 5 в)5: 9 б)3: 9 г)7: 4 объясните как вы это решили...
Магний плюс аш хлор какая реакция как написать !...
Вмашину погрузили мешок 15 кг капусты и 5 ящиков по 20кг капусты в каждом...
Какое число делится на 242и27. 55и98...
Решите уравнение б) 24-2(5x+4)=6 в) (4-8,,8х+1)=5 г) 12=-6+6(3х-1,5)...
Составить условие и решение если можно с объяснениями. 18л молока разлили...
Ссочинением на тему почему старшее поколение так редко довольно молодежью...
What does jill ask her sister to do\ hot to do? 1jill: don t lie in the...
Нужно 10 пословиц поговорок на тему енбек...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Внимание! Если программа не работает, обновите версию!
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.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ