Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
пупсикг
06.11.2022 10:17 •
Информатика
На плоскости заданы две точки а с координатами (х1, у1) и в с координатами (х2,у2) координаты точек вводятся с клавиатуры. определить какая из точек ближе к началу координат и вывести на экран соответсвующее сообщение составьте программу в паскале
Показать ответ
Ответ:
нина655
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 оценок)
Популярные вопросы: Информатика
Сильнолол
09.01.2022 13:11
Сколько существует различных наборов значений логических переменных x1, х2, ..., х6, y1, y2, ..., y6 которые удовлетворяют всем перечисленным ниже условиям? (x1 V у1) — (х2 ∧ у2) =...
aptyp4ik228
12.06.2020 14:28
Гражданин открыл счет в банке 1-го марта, вложив 1000 рублей. Через каждый месяц размер вклада увеличивался на n% от имеющейся на этот момент суммы. Необходимо определить, за какой...
Sashka15081
26.08.2022 09:06
Решать в Python через арифметические операции!...
Karina11222
13.09.2021 11:26
Дано выражение: 0 ^ (A V C) ^ 1 ___ A^B ^ A...
shapakinandrejozt2iy
10.05.2022 05:36
Массив сформирован следующим образом. for i : =1 to 5 do begin a[2*i-1] : = i; a[2*i] : = i * i end; какие значение будут присвоены элементам массива?...
shams200108
01.01.2021 11:42
Сообщение занимает 3 страницы по 40 строк, в каждой строке записано 60 символов. информационный объём всего сообщения равен 14400 байтов. сколько двоичных разрядов было использовано...
Yana2502
06.12.2022 22:33
Встреченно end , а ожидалось ; program n_1; var a, b : string; i, s, n: integer; begin n: =0; repeat writeln( введите слово ); readln(a); s: =length(a); for i: =1 to s do begin if...
marshmallowcat2
25.04.2021 12:06
Антон выложил на столе из карточек слово: абракадабра а затем стал менять местами соседние карточки. какие слова могли у него получиться, если он сделал ровно 5 обменов? за один обмен...
Nurana15
07.01.2021 08:50
Дано целое число. если оно является положительным, то прибавить к нему 23; в противном случае не изменять его. вывести полученное число. 1/ program cislo; var a: integer; begin writeln(...
Сабина14090402929929
23.04.2023 07:32
Var k, m, t : integer; dat: array[1..10] of integer; begin dat[1] : = 36; dat[2] : = 50; dat[3] : = 23; dat[4] : =41; dat[5] : = 27; dat[6] : = 22; dat[7] : = 59; dat[8] : = 12; dat[9]...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.