Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Aigul1265
11.09.2020 15:45 •
Информатика
Знайдіть пари (команда із Скретч та вкладка, на якій вона знаходиться)
https://learningapps.org/display?v=pn1tik01520
Если, тут нельзя скинуть фотку в комментах, вот моя инста @prosto.katy
👇
Увидеть ответ
Открыть все ответы
Ответ:
KavaiiGot
11.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
11.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 оценок)
Это интересно:
О
Образование-и-коммуникации
26.01.2022
Как написать сочинение Как я провел лето : советы и рекомендации...
Ф
Финансы-и-бизнес
12.06.2020
Как создать маркетинговый календарь: советы для бизнеса...
К
Кулинария-и-гостеприимство
14.01.2022
Как готовить подпаленную кукурузу на гриле: простой рецепт и полезные советы...
К
Компьютеры-и-электроника
28.07.2022
Как отправить видео: подробный гайд...
П
Питомцы-и-животные
10.07.2021
Как купать крысу: инструкция для любящих хозяев...
К
Кулинария-и-гостеприимство
07.04.2023
Отварная кукуруза в початках: легко и быстро...
С
Стиль-и-уход-за-собой
11.09.2021
Как распутать парик: лучшие советы от профессионалов...
С
Стиль-и-уход-за-собой
25.09.2020
Как выглядеть великолепно голым: советы от профессионалов...
К
Компьютеры-и-электроника
12.05.2020
Как копировать музыку, изображения и фильмы на свой компьютер с устройства iPhone...
Ф
Финансы-и-бизнес
17.02.2021
5 шагов к идеальной планировке продажи выпечки...
Новые ответы от MOGZ: Информатика
4578000872
23.08.2020
Запишите на языке программирования. ( Всё на фото =)...
gidfgwlr
02.09.2020
1. составьте программу в паскале : -добрый день! – появляется на экране компьютера -назовите, , свое имя: - рад с вами познакомиться, ! - как поживаете? появляется на...
bobamina2004
01.04.2023
Информатика 8 класс. написать решение в программе abc одна компания выпустила лотерейные билеты трех разрядов: для молодежи, для взрослых и для пенсионеров. номера билетов...
wavystrong
26.02.2023
Определите истинные высказывания о функциях процессора. № Высказывание И 1 Считывает данные из оперативной памяти или из устройств ввода/вывода 2 Хранит данные в оперативной...
Tandy
18.08.2021
Выполнить задание 3,номер 8(остальное не нужно подробно, если можно, я максимальный чайник в этой теме...
6hh6h6h
19.05.2021
Укажите соответствия. Компьютеры Характеристики 1 поколение Компьютеры на микропроцессорах или чипах. 2 поколение Полупроводниковые машины на транзисторах. 3 поколение...
Dataxxx
20.02.2022
3. заполните пустые слова в тексте (1) компьютеры поколения составлены в 1958-1964 годах. В этом звене жартылайөткізгіштер (2) использованы. Объем ЭВМ уменьшается в несколько...
alinapopova997
20.08.2020
Что токое кодирование это цифра какита и декодирование это тож цифра какаита...
kvolk420
16.02.2022
Нужно! ! : ( 1) не используя функцию возведения в квадрат, напишите на языке паскаль наиболее короткие алгоритмы вычисления: а) y=x^10 б) y=x^15. постараться использовать...
krizhnaya111
01.01.2022
Разгадайте кроссворд.следуя по стрелке,составьте слово. определите,какая буква встречается в этом слове чаще всего. в качестве ответа определите её номер в алфавите. если...
MOGZ ответил
ответьте на во на английском! 1. Where is the front office? 2. What...
Раскройте скобки. −(12x−3y+4z)...
Хімія 8 клас савчин практична 1...
задачу решить задачу с оформлением (краткая запись) задачи : Маша поиратила...
очень надо в течении 20 минуты...
1. Кто пополнял воинские ряды в северных штатах? 2. Чем отличается...
(ФИЗИКА) Чему равен угол падения, если угол между лучом падающим и...
В каком варианте ответа указаны предложения с уточняющими обособленными...
Катя, Маша и Оля разделили между собой 60 конфет. Катя заметила, что...
Составьте цитатный план Снегурочка весенняя сказка действие первое...
Полный доступ к 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.