Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
555768
23.03.2021 01:59 •
Информатика
Написать программу: Вводятся координаты четырёх точек на плоскости, определить могут ли они быть вершинами выпуклого четырёхугольника.
👇
Увидеть ответ
Открыть все ответы
Ответ:
KavaiiGot
23.03.2021
{ ответ дан на языке 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
23.03.2021
{ ответ дан на языке 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 оценок)
Это интересно:
И
Искусство-и-развлечения
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...
В
Взаимоотношения
13.03.2020
Избегайте обидных фраз во время ссор между супругами: советы психологов...
К
Компьютеры-и-электроника
01.09.2020
Как подключиться к прокси–серверу: шаг за шагом руководство?...
Новые ответы от MOGZ: Информатика
Grigoof
25.11.2020
Берілген сандық мәннен үлкен, кіші, тең, және т.б мәндер бойынша форматтауды қай шартты форматтау тәсілі арқылы жасалады?...
новичок586
17.09.2022
4. В таблице используется условноеформатирование. Книга - Мери Се Вот Inspider12 Реанирование Pine страни і Перектері Сортироксин . розтирот Стан 9-мод тараптарсани - а найблицу...
05Adam05
27.12.2022
Для каждой пары объектов укажи связывающее их отношение. Draw и векторный графический редактор программа «Руки солиста и клавиатурный тренажер Microsoft Word Microsoft on : Linux...
aliceoliver443
21.05.2023
1. сколько бит содержится в 128 килобайтах? 2. сколько мегабайт содержится в 0,75 гигабайта? 3. сколько мегабайт содержится в 0,25 гигабайта? 4. какое количество информации (в битах)...
stupid28
21.05.2023
Лазерный принтер печатает со скоростью в среднем 6300 бит/с. сколько времени понадобится для распечатки 8-ми страничного документа, если известно, что на одной странице в среднем...
Nastja2196
07.09.2022
Инструменты Sketch. Соотнесите картинки к определениям...
нуралик
12.03.2022
17 Задание 9 На рисунке — схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, И, К. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует...
samgrachev
19.04.2022
Напишіть функцію. Функція має працювати з усіма списками (n), які складаються з елементів типу- int(). В результаті при виклику функції, вона повинна перебрати список n , який складається...
makka23
24.07.2021
Приветики мои друзья мне с информатикой. В прикреплённом файле есть задания, если у кого-то есть компьютер, сделаете задания...
bellalove200
02.09.2022
1. Раздел информатики, занимающийся проблемами создания и обработки на компьютере графических изображений называется . 2. Графический редактор (ГР) - прикладная программа для получения...
MOGZ ответил
1вопрос. что такое растовщичевство? 2 вопрос. кто правил раньше и насколько хаммурапи...
Разобрать слова на гласные согласные п о р о г...
Народ, переведите, , на . каждый может поссориться с кем-то. особенно плохо когда...
Что относятся к белкам? 1. глюкозу 2. клетчатку 3. крахмал 4. гемоглобин...
За что арестовали гринева? в чем его обвиняли? развернутый ответ...
Розібрати слово за будовою: синиця...
Эссе на тему человек бессмертен, , познанию (гегель)...
Образуй и запиши сложные слова объясни их лексическое значение обозначь орфограмму...
Составьте сложные предложения со словами аккомпанемент,виртуоз,ординарный,перспектива.:...
Сплощадью 16 квадратных см,сколько прямоугольников с такой же площадью длины...
Полный доступ к 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.