Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
25Виктория03
09.06.2022 08:16 •
Информатика
На плоскости заданы две точки а с координатами (х1, у1) и в с координатами (х2,у2) координаты точек вводятся с клавиатуры. определить какая из точек ближе к началу координат и вывести на экран соответсвующее сообщение составьте программу в паскале
Показать ответ
Ответ:
andryushaivcheoo
13.07.2020 08:46
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('2-точка')else
writeln('1-точка');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
jamashkinpavel
15.05.2022 15:14
1. Составить программу следующей задачи: Задан массив из N целых чисел вывести на экран все числа заданного массива, которые делятся без остатка на первое число из заданного...
Zipchik
25.07.2020 23:46
Дана программа: Program Primer; Var A,result : real; Begin Writeln( Введите значения переменной A ); Write( A= ); Readln(A); Result := sqr((5+A)*6); Writeln ( sqr((5+A)*6) ,...
всёокок
06.11.2020 12:31
1)назовите форматы файлов текстовых документов,в которых может быть сохранены текстовый документ подготовленный в word2007? 2)что такое формат объекта? как называется операция...
Эммикэт
23.02.2021 15:46
2. каково наибольшее число утверждений могут быть истинны одновременно? 1. незнайка лжец, 2. незнайке не везет, 3. незнайке не везет, но он не лжец, 4. если незнайка лжец, то...
Саня11671873478
11.12.2021 03:04
Надо составить разветвляющийся алгоритм вычисления y по условиям (8 класс)y{ x²+2x,если x 0x-3 в остальных случаях...
darunaivastcyk123
02.05.2020 21:58
решить хотябы 7 заданий (Кто непраильно ответит в бан полетит)...
mane2009
02.05.2020 21:58
Представьте, что вы занимаетесь поисками капитана Гранта. Напишите репортаж с места события. Соблюдайте последовательность изложения мысли, смысловую цельность и структуру письма....
Fenef
02.05.2020 21:58
Сәйкестендіру арқылы сөз тіркесін құрастыр(Составь словосочетание)Қатты үйренуТіл білгілері келдіСағатты шаршадыКомпьютерді сөйлеуҚазақ тілінде қосамынТАМ НАДО СОСТАВИТЬ СЛОВОСОЧЕТАНИЯ...
AlexOge
02.05.2020 21:58
Перечисли, что в экосистеме относится к абиотической части? 1бб. Перечисли, что в экосистеме относится к биотической части? 1бв. На какие группы делятся живые организмы в экосистеме?...
alishertursunov
08.04.2020 14:53
Определить вид четырехугольника, если его вершинами являются середины сторон прямоугольника....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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('2-точка')else
writeln('1-точка');
end.