Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Verka51
30.12.2022 18:34 •
Информатика
Скласти програму в пайтон щоб намалюватии квадрат
👇
Увидеть ответ
Открыть все ответы
Ответ:
KavaiiGot
30.12.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
30.12.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 оценок)
Это интересно:
И
Искусство-и-развлечения
27.10.2022
Как преуспеть в стендапе: советы от профессионалов...
К
Кулинария-и-гостеприимство
27.09.2021
Хранение листовой капусты: секреты долгого сохранения...
И
Искусство-и-развлечения
05.03.2023
Как написать хорошее краткое содержание книги...
К
Кулинария-и-гостеприимство
09.03.2023
Как приготовить мясо по лондонски: рецепт с секретами...
К
Кулинария-и-гостеприимство
29.04.2020
Как быстро вскипятить воду: простые способы и советы...
Д
Дом-и-сад
01.06.2021
Как сделать гелевый освежитель воздуха: просто, быстро и недорого...
К
Компьютеры-и-электроника
21.04.2022
Как победить Анкано в Skyrim...
15.01.2022
Как довольствоваться тем, что у вас есть...
В
Взаимоотношения
29.10.2021
Как отказаться от мысли об измене партнеру...
К
Компьютеры-и-электроника
04.10.2022
Как удалить старые сообщения в WhatsApp...
Новые ответы от MOGZ: Информатика
Clook2023
06.03.2020
Turbo Pascal: Дан массив А из четного числа N элементов. Сформировать массив В из К=N/2 элементов так, чтобы: b1=aN+aN–1, b1=aN–2+aN–3, … , bK–1=a4+a3, bK=a2+a1....
V5Ch
27.07.2022
С ИНФОРМАТИКОЙ, НУЖЕН ТОЛЬКО ОТВЕТ...
nastyasergeeva9
19.03.2020
Як реагує програма коли користувач вводить числа збільшою або меншою кількість цифр?...
YuliaPyatova
03.03.2022
1. Камера делает фотоснимки размером 250 × 300 пикселей. На хранение одного кадра отводится 40 Кбайт. Найдите максимально возможное количество цветов в палитре изображения....
Емина
10.06.2022
В доме проживает десять жильцов. Подсчитать, сколько каждый из них должен платить за электроэнергию и определить суммарную плату для всех жильцов. Если известно, что один киловатт...
mishasinik
07.05.2021
Перевести 2,5 Кбайт в биты...
рубін
10.07.2020
Задача 1: Укажите предложения, которые не являются высказываниями: 1. В нашем городе есть музей. 2. Некоторые пингвины живут на Севере. 3. Послушайте сообщение. 4. Какой сегодня...
ПолинаКот197
01.05.2022
Кий формат зображення найбільш доцільний при збереженні зображення? Виберіть одну відповідь: bpb jvs mmm jpeg...
roman2223q
10.06.2022
Установи соответствие между описаниями действий и результатами их применения к фигуре. Добавление узлов деформация фигуры Деформация фигуры с использованием углов по вертикали...
санёк55665464654
18.02.2020
До іть з практичною роботою з інформатики...
MOGZ ответил
Расставьте запятые или тире. кто не в курсе сейчас расскажу....
Проверьте моё короткое сочинение по на ошибки. according to unofficial statistics,...
4в 9-ой степени разделить на 64 во 2-ой степени...
Берілген етістіктерді болымыз етістікке айналдыр армандады,еңбек етті,ойлады,тапты,ашты,...
Как переводится слово биоценоз на греческом...
На одном полозе далеко не уедешь смысл пословицы...
С2 , 3 тапсырма . мне нужен ответ как можно скорее !...
Каз.яз 6 класс 2 часть 3 тапсырма 5 страница...
Лихан бөкейханның алаш жері үшін атқарған еңбегіне зерттеу жүргізіп ұлт...
100 на месте пропуска вставьте нужную букву...
Полный доступ к 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.