Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Dipper17
07.07.2022 00:48 •
Информатика
Даны 2 точки а (х1; у1) и b(х2; у2) определить какая из точек находиться ближе к началу координат . записать на языке паскаль
Показать ответ
Ответ:
loser80
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 оценок)
Популярные вопросы: Информатика
fianketo05
13.06.2022 05:28
Враховуючи що кожен символ кодується одним байтом укажіть інформаційний обсяг такого речення: Ой, яка чудова українська мова!(А) 224(Б) 248(В) 264(Г) 200...
gern74p01ako
22.09.2020 04:55
Выберите верные утверждения. Растровое изображение имеет большой размер файла. Растровое изображение создаётся с геометрических фигур. Растровые изображения изменяются при масштабировании....
KINGOFMATH1
24.04.2020 23:40
Как называют переменную в строке заголовка команды цикла со счетчиком, что стоит перед знаком присваивания? Заголовком цикла Счетчиком цикла Отсутствует правильный ответ. Телом цикла...
barmoksana
17.10.2021 07:15
1) какой объем видеопамяти необходим для хранения изображения, если количество цветов в палитре 16777216, а разрешение дисплея 512*128 пикселей?...
OrzuUchenichok
25.10.2021 00:34
Напишите программу. периметр прямоугольника равен p, одна из его сторон равна a. найти его площадь...
Виктор338
08.07.2021 17:16
Для чего использует компьютер музыкант?...
Bollsav
17.10.2020 21:50
Гермафродиты - это: выберите один ответ: a. раздельнополые животные b. черви c. особь, в которой производятся и женские и мужские гаметы d. особи, размножающиеся бесполой формой...
konovalova701
17.10.2020 21:50
Записати правильно слова. пі,ї, осі/зимовий,пів..століт..я, північно/західний,авіа/квиток, червоно/гарячий,м..ор..живо, дит..ясла,о/пів/на/третю, 30 ів...
Ludo4ka123
17.10.2020 21:50
Прочитайте загадку. объясните отгадку к загадке. спереди -щильце, сзади - вильце, сверху -синее сук он цена, снизу - белое полотенце....
anx2003
17.10.2020 21:50
Сумма двух чисел равна 137 -и. одно из чисел на 25 меньше трёхкратного значение второго числа. чему равно большее из этих чисел? ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.