Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
леле7
22.03.2023 13:06 •
Информатика
Даны четыре точки a1(x1,y1), a2(x2,y2), a3(x3,y3), a4(x4,y4). определить, будет ли они вершинами параллелограмма. на паскале,
Показать ответ
Ответ:
polinaandreeva9
04.10.2020 19:19
beginvar x1, x2, x3, x4, y1, y2, y3, y4: double; writeln('Введите x1'); readln(x1); writeln('Введите x2'); readln(x2); writeln('Введите x3'); readln(x3); writeln('Введите x4'); readln(x4); writeln('Введите y1'); readln(y1); writeln('Введите y2'); readln(y2); writeln('Введите y3'); readln(y3); writeln('Введите y4'); readln(y4);if((y1-y4=y2-y3) AND (x2-x1=x3-x4)) thenwriteln('ABCD - параллелограмм')else writeln('ABCD - не параллелограмм');end.
0,0
(0 оценок)
Популярные вопросы: Информатика
bilik2002
09.05.2021 14:08
Если кто -то сможет оформить в...
odyvanchik22
26.11.2022 11:38
Паскаль. Исправить ошибки в тексте: в словах “рож”, “мыш”, “доч” в конце поставить “ь”....
элирка3
22.05.2022 16:05
Составить программу, которая находила бы сумму кубов элементов с четными индексами, и произведение квадратов элементов с нечетными индексами в массиве к(8)...
daniildorunov
14.02.2022 05:25
Дано действительное число х. не пользуясь никакими другими арифметическими операциями, кроме умножения, сложения и вычитания, вычислить: 1 – 2х + 3х2 – 4х3....
ДарьяГ22
01.09.2022 07:18
Автомобиль проехал три участка пути разной длины с разными скоростями. найди среднюю скорость автомобиля...
nyto4ek
01.09.2022 07:18
Десятичное число 20.45 перевели в четвертичную систему счисления найти 2000 цифру после запятой...
hfjfifj
26.01.2022 06:33
Найти произведение первого второго и четвертого положительных элементов массива (массив вводим с экрана, первое число - количество элементов массива, т.е. как-то так: var...
Julia777Nyar
25.03.2020 02:10
Вычислить (1+sin0.1)(1+sin0.2) (1+sin10) для free pascal....
ttttt1509999
25.03.2020 02:10
Среди чисел последовательности 1, 2, 4, 8, 16, 32 найдите количество чисел до первого шестизначного...
диана2470
13.04.2022 06:47
Вводить числа до тех пор пока не пудет введено положительное найти номер минимального. (решать в паскале)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота