Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
mumusinka
09.02.2020 11:53 •
Информатика
Постройте логические схемы нужно.
буду .
👇
Увидеть ответ
Открыть все ответы
Ответ:
pogasii
09.02.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 оценок)
Ответ:
KavaiiGot
09.02.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 оценок)
Это интересно:
Х
Хобби-и-рукоделие
05.01.2022
Как сделать подушки: от подготовки материалов до последнего шва...
Д
Дом-и-сад
15.02.2020
Как редуцировать, повторно использовать и перерабатывать...
К
Компьютеры-и-электроника
13.09.2020
Как легко и быстро установить Instagram на Андроид? Ответ здесь!...
К
Кулинария-и-гостеприимство
23.03.2021
Как приготовить в духовке жареного цыпленка...
С
Стиль-и-уход-за-собой
19.07.2022
Как наносить минеральный тональный крем: лучшие советы и рекомендации от профессионалов...
02.05.2022
Как понять, что вы повзрослели: признаки и особенности...
П
Путешествия
10.03.2021
Контроль мочевого пузыря в автобусе: как оставаться комфортным в пути...
К
Кулинария-и-гостеприимство
02.03.2020
Как включить куркуму в рацион и получить пользу для здоровья?...
Ф
Финансы-и-бизнес
08.08.2021
Как заключить брачный договор в Таиланде: советы для тех, кто собирается расписываться...
Х
Хобби-и-рукоделие
24.04.2020
Как сделать бумажный вертолет...
Новые ответы от MOGZ: Информатика
Dashe444ki
11.11.2021
процедуры состоит из слова procedure, за которым следует имя процедуры, которое используется для активации ее выполнения. Если у процедуры есть то они указываются после...
krivitskaya1
11.11.2021
выполнить задание 4 и задание 5...
ytxrgh
22.12.2020
БЫСТРО У НАС СОР ИДЕТ ПО ИНФОРМАТИКЕ даю 31. ...
гребок
18.08.2020
Растрлык графиканын векторлык графикага караганда бр артыкшылыгы...
roma845
18.09.2021
Что такое диаграмма? •Графическое отображение числовых данных и соотношения между ними •Последовательность ячеек которая образует логическую цепочку •Внешнее оформление...
Ankur1
14.01.2022
1.сақталатын тасымалданатын және қолданылатын кез келген мәлімет...
dashasviridenko
31.03.2023
Написать программу в pascal, используя массивы. дано массив а[1..n]. сделать программу которая выводит те элементы массива? индексы которых являются степени двойки желательно...
dapmoney2p0c8c0
11.11.2021
Нужно создать программу на языке програмирования паскаль, чтобы вводить сведения о авто ( вводить марку) а программа выдавала сведения о ее хозяине ( программа выдает номер...
LeraLis201
11.11.2021
Надо найти алгоритм вычесления суммы чисел от 2 до 10! вроде условие в ромбе даже есть, а училка говорит, мол тела цикла ! вышлите готовый!...
орп21
12.07.2020
40) У Толи есть доступ к сети Интернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения информации 220 бит в секунду. У Миши нет скоростного...
MOGZ ответил
Найдите значение выражения (13-9,5÷3,8)×0,3...
Прочитайте разговор ильи муромца с разбойниками по ролям.при чтении передайте...
Все четные числа больше 8 и меньше 19...
Ұқыптылар сөздеріне фонологиялық талдау жасау керек көмектесіндерші өтініш...
Укакого из металлов в следующих соединениях эквивалентная масса наибольшая?...
Мама положила на тарелку сливы для трёх своих дочерей и ушла на работу....
1.является ли плоскость бесконечной? 2.имеет ли прямая концы? 3.сколько...
Принтер за 12 минут напечатал 108 страниц . составьте отношения для нахождения...
Округлить число до десятков 360,560,640,810 и до сотен 564,384,381,215...
Вычислите значения выражений 459-283 520-(120-80)×2...
Полный доступ к 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.