Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
arina556
13.09.2020 20:53 •
Информатика
Багатократне повторення однотипних дій називається ?
👇
Увидеть ответ
Открыть все ответы
Ответ:
KavaiiGot
13.09.2020
{ ответ дан на языке 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
13.09.2020
{ ответ дан на языке 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 оценок)
Это интересно:
П
Путешествия
15.04.2023
Как справиться с воздушной болезнью в самолете...
26.01.2022
Как стать центром внимания: справляемся с ролью новой девушки в старших классах...
К
Кулинария-и-гостеприимство
20.11.2022
Как заморозить овощи: полезные советы и рекомендации...
М
Мир-работы
30.04.2023
Как получить работу мечты: 5 шагов к успеху...
Х
Хобби-и-рукоделие
04.10.2022
Как сделать зажигалку: пользовательская инструкция...
К
Компьютеры-и-электроника
30.05.2020
Навсегда избавьтесь от истории Skype: подробная инструкция...
З
Здоровье
21.04.2021
Как распознать экзему: симптомы и признаки...
О
Образование-и-коммуникации
26.04.2020
Лучшие способы самостоятельно создать аэрогель...
Х
Хобби-и-рукоделие
14.04.2021
Завязывание скользящих узлов на ожерелье: профессиональный подход...
К
Компьютеры-и-электроника
27.01.2020
Изучаем, как создавать формы в HTML: полное руководство...
Новые ответы от MOGZ: Информатика
wwwqwotressРики
13.02.2020
Напишите по одному примеру на каждый алгоритм...
Малойоригинальный
29.03.2020
Для чего у файла имеется расширение...
llleeennn
29.03.2020
Найти сумму цифр четырёхзначного числа паскаль...
Denis8903
29.03.2020
Найти «спрятанное» слово (соединяя слоги): а) обруч, кара; б) пастух, плотина, лагерь; в) сапоги, парашют, фантазия; г) косари, заморозки, лётчик; д) мука, рагу,...
помошник137
27.12.2021
Конечным множеством является множество: 1) цифр 2) натуральных чисел 3) целых чисел 4) звезд...
витяак74
25.03.2020
3) WINDOWS XP 2. Укажите отношение для пары «графический редактор и MS Paint» 3. Закончите предложение: «Модель - ...» 4. Закончите предложение: «Линейный алгоритм...
asanali2288
23.06.2022
Не менее 5 примеров профессий, где основным видом деятельности является работа с компьютерной графикой...
Викa1000000
18.05.2023
Сканируется изображение размером 10 на 10 см2. разрешающая сканера 600 на 1200 dpi. кол-во цветов 65536. найдите информационный объём....
SawBilly
22.08.2022
Зададено двузначное число. найдите средне арифметичное цифр числа....
fake23
22.08.2022
3714(8)в десятичную систему счисления...
MOGZ ответил
1. внутренняя жидкая среда обеспечивает: а) обмен веществ в клетках...
Какая черта положения африки оказывает наиболее сильное влияние...
Ток мощностью 50 квт при трансформатора. после прохождения трансформатора...
1)укажите словосочетание, слова а котором связаны друг с другом...
Что такое ориентирование по местности?...
До какой высоты летают птицы,самолеты?...
1285-282*75: 47+14472: 18 по действиям...
Пакет может выдержать не больше 4.7 кг груза. можно ли положить...
Впервом куске 120 м во втором 65 м ткани . первый кусок ткани...
Висота конуса 20 см, діамнтр основи -40 см. знайти кут при вершині...
Полный доступ к 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.