Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Swerri
01.10.2022 02:55 •
Информатика
Решите задачу табличным Как набрать ровно 7 литров воды имея в наличии два ведра : одно-трехлитровое, второе-пятилитровое.
👇
Увидеть ответ
Открыть все ответы
Ответ:
KavaiiGot
01.10.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
01.10.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 оценок)
Это интересно:
К
Компьютеры-и-электроника
11.02.2022
Как установить новые модели машин в GTA 4: подробная инструкция...
С
Стиль-и-уход-за-собой
02.12.2022
Как создать свой неповторимый образ в стиле 80х...
С
Стиль-и-уход-за-собой
28.01.2022
Как окрасить волосы в технике Dip-Dye при помощи Kool Aid?...
Ф
Философия-и-религия
03.06.2020
Практики тибетского буддизма: как начать и что ожидать...
К
Компьютеры-и-электроника
27.05.2020
Как увеличить масштаб страницы браузера...
К
Компьютеры-и-электроника
25.08.2020
Как удалить иконки с рабочего стола (Windows)...
О
Образование-и-коммуникации
08.06.2023
Как найти площадь поверхности цилиндра: простой и понятный подход...
К
Компьютеры-и-электроника
26.11.2021
Как легко и быстро распечатывать с Samsung Galaxy Note 3...
С
Семейная-жизнь
21.02.2020
Как справиться с ребенком, который постоянно говорит нет...
02.01.2020
Как стать серьезным: 10 советов от успешных людей...
Новые ответы от MOGZ: Информатика
aksenovazlata
22.03.2022
Тип файла можно определить, зная его: а) размер б) расширенне в) дату создання а) размещение...
sansanetflower
15.01.2022
Построить блок схему с использованием кода c#. private void button1_Click(object sender, EventArgs e) { int a = int.Parse(textBox1.Text); int b = int.Parse(textBox2.Text);...
amino4ka290805
20.10.2020
Help Сколько раз будет выполнятся цикл for i: = -5 to 0 do. В качестве ответа укажите число...
serob1223
04.03.2022
Рассчитайте время звучания стереоаудеофайла если при 16 битовом кодировании и частоте дискретизации 32000 его объем равен 3500кб...
Artem19092002
02.12.2021
это информатика дам за выполнение...
НикаиВикаСестры
22.01.2020
Переведите число а2 из шестнадцатеричной системы счисления в десятичную систему счисления.ответ и метод решения обязательно!...
VitaLevchenko2004
28.02.2021
Язакачал программу cura, после программа спрашивает какой тип принтера у меня ( у меня 3д принтер анет а8 ) какой у него тип. подскажите ! заранее зачем удаляет этот...
belkairi
13.02.2020
Дана ежедневная температура четырех недель месяца. написать программу, вычисляющую недели месяца, в которых средняя температура ниже среднемесячной. все ежедневные значения...
Negogda
09.12.2020
Що служить як обмеження цілісності в рамках однієї таблиці для однозначної ідентифікації ...
madoleh
18.09.2022
Дано n=12. Вычислить n-e значение переменной C....
MOGZ ответил
Влесу, на лесной полянке, на лугу утром растения раскрывают свои бутоны...
Как можно по годичным кольцами определить возраст дерева или ветки...
Решите уравнение и назовите в каком случае углерод является окислителем,...
Арбуз в 5 раз тяжелее дыни и на 8 кг легче тыквы.чему равна масса...
Составьте предложение со словами обычный и необычный , ленивый и трудолюбивый...
Сравнение блндной поганки и шанпиньонов...
Образуйте действительное причастие времени от глагола увлечь...
Выражение 3.5х+(6 целых 1/4х-7у)-7у...
Солнце жгло немилосердно. едва поднявшись над горизонтом, оно обдавало...
2700 метров это сколько сантиметров...
Полный доступ к 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.