Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
nynsikram
25.03.2022 10:54 •
Информатика
НУЖНО НАПИСАТЬ КОД В ПИТОНЕ! КТО НАПИШЕТ ПРОСТО РЕШЕНИЕ БАН
👇
Увидеть ответ
Открыть все ответы
Ответ:
KavaiiGot
25.03.2022
{ ответ дан на языке 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
25.03.2022
{ ответ дан на языке 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 оценок)
Это интересно:
З
Здоровье
06.07.2021
Как повысить либидо: простые способы улучшения сексуальной жизни...
01.10.2020
Как встречаться с парнем из другой школы: советы и техники...
С
Стиль-и-уход-за-собой
21.06.2021
Как блокировать удар: советы от профессионалов для самозащиты...
Ф
Финансы-и-бизнес
24.05.2021
Как получить бесплатные вещи без какого-либо мошенничества: советы и рекомендации...
К
Кулинария-и-гостеприимство
06.01.2020
Как сделать гуакамоле: рецепт и советы от профессионалов...
К
Компьютеры-и-электроника
12.07.2021
Как создать игру с помощью Game Maker 7.0 Lite...
К
Компьютеры-и-электроника
09.06.2023
Как импортировать контакты в WhatsApp на Android-устройстве: инструкция...
Ф
Финансы-и-бизнес
05.11.2020
Как выбрать нотариуса для распределения наследуемого имущества...
Х
Хобби-и-рукоделие
19.02.2020
Как начать бизнес по производству самодельного мыла...
02.12.2021
Как распознавать СДВГ у взрослых: симптомы и диагностика...
Новые ответы от MOGZ: Информатика
Виолетик2004
02.11.2020
Какое количество страниц книги поместится в файле объемом 640 кбайт, если каждая страница содержит по 64 символа, а 1 символ занимает 8 бит? !...
consenttime
31.12.2020
Сканируется изображение размером 10×15 см. разрешающая сканера 600dpi точек на один дюйм. глубина цвета 24 бит. найти объем изображения....
Shvabra335
19.04.2023
Запишите в развернутой форме двоичное число 110110(2). 2) Переведите в двочиную сиситему десятичное число 48. 3)Переведите в десятичное число 383 в шестнадцатеричную...
64738248585884847
11.06.2020
Выполнить алгоритм для значений y = 1; 5; 7 ; 10; 14; 20...
наст55
06.11.2020
Установите соответствие: B=286, C=25.8, D= False, Lesson; символичный, лигический, целый, вещественный....
Каокогклвтсд223
02.04.2021
Информатика, 2 задание Запишите результат вычислений по формуле в ячейке с3...
annakrasnikova2
02.05.2021
•объявите переменные, необходимые для вычисления площади прямоугольника....
КэтринПирс23
02.05.2021
Производительность процессора является его интегральной характеристикой которая зависит от? а)частоты процессора б)его народности в)особенностей архитектуры г) все...
slava20syper
17.03.2023
По каналу связи передаются сообщения, содержащие только четыре буквы: М, О, Р, Е; для передачи используется двоичный код, удовлетворяющий...
zhumanovAblai
20.10.2022
Двоичная система используется в компьютерной технике, так как: выбрать один или несколько 1.двоичные числа представляются в компьютере с простых технических элементов...
MOGZ ответил
Составить монолог на тему -«домбыра үйірмесіндегі қызықты оқиға»...
Втреугольнике авс медианы равны и пересекаются в точке о. постройте...
1.найдите амплитуду температур по данным: 0,+9,+14,+112.найдиье...
Вперечне веществ формулы которых: а) k2o б) bео в) n2o5 г) al2o3...
Чеченский язык 5 класс овхадов махмаев шардар 243 ответ...
При пересечении двух прямых получились следующие углы 1, 2, 3...
Решить 2-3 столбик, 1 не нужен. 50...
Какое строение имеют контурное и пуховое перья у птиц? 20 !...
Он живой и светиться 7 вопросов...
Какое количество серо-водорода образуются при взаимодействий...
Полный доступ к 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.