Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
anastasija193p07d7p
19.06.2022 02:16 •
Информатика
Даны 2 точки а (х1; у1) и b(х2; у2) определить какая из точек находиться ближе к началу координат . записать на языке паскаль
Показать ответ
Ответ:
divamurmyrlena
30.06.2020 10:19
Program gt;
var x1,x2,y1,y2:real;
begin
readln(x1,y1,x2,y2);
if(x1*x1+y1*y1)<(x2*x2+y2*y2)then writeln('первая точка ближе')else
if(x1*x1+y1*y1)>(x2*x2+y2*y2)then writeln('вторая точка ближе')else writeln('одинаково расположены');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
HotaruAnastasija
22.02.2020 08:38
Программа это- a)аналог оригинала, отражающий некоторые его характеристики б)объект в виде совокупности данных, хранящихся во внешней памяти компьютера в) последовательность команд,...
wiwivvv
03.11.2021 22:47
Тест на тему: «обработка графической информации» 1. графическим объектом не является: а) текст письма; б) чертеж; в) схема; г) рисунок. 2. наименьшим элементом изображения на графическим...
Mussa1
03.11.2021 22:47
Напишите программу, которая находит сумму двух чисел , если первое число меньше второго и их разность в противном случае. определите результат выполнения программы при а=56, в=23....
Julianne11
22.06.2021 21:14
Как называется функция эксель которая вычисляет сумму значений переданных ячеек и диапазонов? ...
Костя228337
02.05.2021 15:23
Сообщение из 28 символов записано в 8 битной кодировке кои-8. как изменится информационный объём сообщения, если к сообщению дописали 11 символов? 1 увеличится на 88 байт. 2 уменьшится...
milana00071
08.02.2021 13:18
ЛИНИe а : ском языках. 1. Что такое информация для каждого из вас? Что можно делать с ней? Произнесите ключевые слова урока на казахском и англий- 2. С каких органов чувств человек...
тони2006
07.05.2022 19:47
Барій нітрат одержали внаслідок реакції нейтралізації. Склади рівняння реак- ції. Визнач кількість речовини кожного реагенту, якщо внаслідок реакції одержа-ли сіль кількістю речовини...
polly132
29.01.2023 09:06
Чому така назва вірша Слово чому ти не твердая криниця...
beloborodov05p06igp
28.04.2022 05:38
Як досягається збереження тиску повітря по обидва боки барабанної перетинки?...
Котэ112шк
17.10.2020 22:48
Яких правил потрібно дотримуватись для того щоб сформулювали стійкість до стресів...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x1,x2,y1,y2:real;
begin
readln(x1,y1,x2,y2);
if(x1*x1+y1*y1)<(x2*x2+y2*y2)then writeln('первая точка ближе')else
if(x1*x1+y1*y1)>(x2*x2+y2*y2)then writeln('вторая точка ближе')else writeln('одинаково расположены');
end.