Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
MOKOV07
03.10.2020 00:36 •
Информатика
Найдите координаты точки (x,y) делящий отрезок ab пополам, если известно, что его концы имеют координаты a(x1,y1) , b(x1,y2) x=x2-x1поделить на 2 y=y2-y1поделить на 2 на языке паскаль
Ответ:
ыаррауцйу
06.10.2020 01:28
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var x1 := ReadReal('координаты A(x1,y1) =');
var y1 := ReadLnReal();
var x2 := ReadReal('координаты B(x2,y2) =');
var y2 := ReadLnReal();
Writeln('O(', (x1 + x2) / 2, ', ', (y1 + y2) / 2, ')');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Эльмаз07
06.05.2020 10:02
1. Зачем нужно оглавление? 2. Чем содержание отличается от оглавления? 3. На какой вкладке находиться команда Оглавление?...
mariyaskobenko1
28.11.2022 19:19
Что показывает индекс i в записи массива mas[i]?...
milaB67
07.05.2021 19:44
Напишите программу в python,которая будет выводить первые 15 натуральных чисел кратных 5( ) очень нужно...
KIMSEOLHYUN
10.09.2020 05:08
Какую територию получил Напалеон 3 за освобождение Ломбардии...
andreyrodrigo2
21.06.2022 07:05
Сгорело 26 г железа. Сколько л кислорода затратилось?...
LOL2017Alex
03.08.2020 07:41
даю 60б. Exercise 2. Fill in the blanks with the correct words from the word bank.W o r d b a n k:injurylockout/tagoutfallsafetytripAccident1.Sarah sustained a(n) to her...
trubadurov01
10.04.2023 11:43
Решите продолжение щас выложу быстро решите...
krmax2002p0bwab
16.11.2022 01:59
Физика 10 класс Контрольная работа № 2 Вариант 1 1. Небольшой брусок массой 300 г кладут на доску длиной 40 см. Один конец доски поднимают на 30 см. Коэффициент трения...
wardian
24.04.2022 10:22
Выберите из чисел 12, 2, 3, 24, 4, 5, 6, 14, 16,9, 10, 8, 48 те, которые являютсяделителями 48:...
dalakoff
06.03.2023 19:57
С чего делятся клеточный сок ядры в цитоплазме?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Если программа не запускается, то обновите версию
begin
var x1 := ReadReal('координаты A(x1,y1) =');
var y1 := ReadLnReal();
var x2 := ReadReal('координаты B(x2,y2) =');
var y2 := ReadLnReal();
Writeln('O(', (x1 + x2) / 2, ', ', (y1 + y2) / 2, ')');
end.