Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ученик6В1
21.12.2021 19:15 •
Информатика
Какие файлы не досильно включить в общие архивы при зашифрованном пароли? Почему?
👇
Увидеть ответ
Открыть все ответы
Ответ:
KavaiiGot
21.12.2021
{ ответ дан на языке Pascal }
{ Вариант a }
PROGRAM Solution(INPUT, OUTPUT);
VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;
BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));
WRITELN(Str2 + Str3 + Str1);
END.
{ Вариант b }
PROGRAM Solution(INPUT, OUTPUT);
VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;
BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));
WRITELN(Str3 + Str1 + Str2);
END.
4,6
(32 оценок)
Ответ:
pogasii
21.12.2021
{ ответ дан на языке Pascal }
{ Вариант a }
PROGRAM Solution(INPUT, OUTPUT);
VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;
BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));
WRITELN(Str2 + Str3 + Str1);
END.
{ Вариант b }
PROGRAM Solution(INPUT, OUTPUT);
VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;
BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));
WRITELN(Str3 + Str1 + Str2);
END.
4,6
(85 оценок)
Это интересно:
Ф
Финансы-и-бизнес
23.03.2020
Как рассчитать годовой доход в процентах по банковскому сберегательному счету...
С
Стиль-и-уход-за-собой
10.02.2023
Как приготовить натуральное средство от запаха ног...
С
Стиль-и-уход-за-собой
25.03.2020
Хипстерская борода: как вырастить и ухаживать...
З
Здоровье
30.08.2021
Как вылечить герпес в домашних условиях: продукты, которые помогут держать болезнь под контролем...
О
Образование-и-коммуникации
25.04.2021
Векторная кинематика: как рассчитать пройденное расстояние...
Ф
Философия-и-религия
01.09.2022
Как найти счастье в жизни: советы от психологов...
К
Компьютеры-и-электроника
29.05.2022
Как подключить телевизор Samsung к беспроводной сети:...
К
Компьютеры-и-электроника
24.04.2023
10 простых способов, как достать сияющего покемона...
З
Здоровье
23.01.2022
Симуляция головной боли: как это возможно и зачем это нужно?...
С
Семейная-жизнь
23.03.2022
Как заключить брак во Флориде: все, что нужно знать...
Новые ответы от MOGZ: Информатика
jovanny1607
04.03.2023
1. Что такой обмена сообщениями через интернет в реальном времени через службы мгновенных сообщений, используя программы-клиенты 3. Тематическое общение через Интернет в режиме...
Lerochka0204
04.04.2021
Начертите блок схему по скрипту за такое фото прощения, т.к фото скрипта мне не удалось вставить сюда...
SimbatDuysebek
04.01.2022
Расставь знаки сложения и вычитания так,чтоб получить в результате 9. 1 2 3 4 5 6 7 8...
cvvb
04.01.2022
Образец титульного листа в школе (ссылка)...
nastya2734
04.01.2022
Межбуквенный интервал - a) трекинг; b) тезаурус; c) регистр; d) листинг....
Pomashка03
04.01.2022
Поменять местами минимальный и первый элементы массива....
begemot14
04.01.2022
Написать программу вычисления стоимости покупки с учетом скидки. скидка в 10% предоставляется, если сумма покупки больше 1000 руб...
Geimer200
12.08.2022
Добрый ! скиньте 3-4 сложных вопроса по информатике(вопрос-ответ) например: 1)вопрос(ответ_класс)желательно 3-4 вопроса 8,9,10,11 заранее ....
Kate200005
18.11.2020
Позовчера пете было 17 в следующем году ему будет 20 как такое может быть? ?...
amaliyaazlzova
01.01.2021
Впаскале написать программу. вводите число и по ней таблица умножения выводится....
MOGZ ответил
Исогласование примыкание по пять словосочетаний. . высокие ....
Вбиблиотеке 25000 книг.40% всех книг-учебники,из них 12%- учебник и по .сколько...
Твір мініатюра на тему мої враження від живопису ренесансу...
Заполните таблицу войны xix в. в северной и латинской америке...
Напишите сообщение на тему образование. заранее...
Уармана 48 черных и 56 белых солдатиков...
Какая группа слов не относится ни к самостоятельным ни к служебным частям...
По шоссе едут навстречу друг друга два велосипедиста. сейчас между ними 2...
1. какие народы населяют евразию ? 2. какие различия есть между ними ? 3....
Модных рек слово модных правильно ли мы написали...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
{ Вариант a }
PROGRAM Solution(INPUT, OUTPUT);
VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;
BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));
WRITELN(Str2 + Str3 + Str1);
END.
{ Вариант b }
PROGRAM Solution(INPUT, OUTPUT);
VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;
BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));
WRITELN(Str3 + Str1 + Str2);
END.