Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Jina9845
09.02.2022 23:03 •
Информатика
На плоскости заданы две точки а с координатами (х1, у1) и в с координатами (х2,у2) координаты точек вводятся с клавиатуры. определить какая из точек ближе к началу координат и вывести на экран соответсвующее сообщение составьте программу в паскале
Ответ:
Natalivizer
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 оценок)
Популярные вопросы: Информатика
annaYanna1
01.04.2021 20:25
В командах СУБД условия выбора записывают в форме… 1)программой2)формулой3)высказываний4)логических выражений...
pollianna2
18.07.2021 17:07
Дұрыс тұжырымды анықта информатика...
agrdoon
12.12.2020 13:23
Объём дискеты составляет 1 нн мб, рассчитать сколько книг может поместиться на дискету, если для хранения 1 символа используется 1 байт, количество страниц в книге, строк на...
arsyuha
01.04.2021 00:24
Напишите программу, которая заменяет расширение у заданного имени файла. входные данные первая строка содержит имя файла, которое нужно изменить. во второй строке записано нужное...
vanyavanyaere
13.09.2021 23:36
Составьте алгоритм сложения натуральных чисел (в виде блок схемы)...
v3tpr33
13.09.2021 23:36
Решить анаграммы: укбноту, джемо, , авоорк, текормпью...
мариана24
28.03.2023 17:50
На столе лежало 15 карандашей. среди них 11 цветных. какая часть карандаши цветные?...
Nastyaninisvn
28.03.2023 17:50
Расфосовали 18 кг сахару поровну на 9 пакетов.сколько потребуется пакетов чтобы расфосовать 48 кг. если в каждом пакете будет на 1кг больше чем расфасовано сначало...
marfmelov
28.03.2023 17:50
Текст рассуждение на тему вредных привычек детей, которые не одобряют взрослые...
alenalis41125
28.03.2023 17:50
4. степень окисления азота уменьшается в ряду веществ, имеющих формулы 1) nh3, no2, kno3 2) n2o4 , kno2, nh4cl 3) n2, n2o, nh3 4) hno3, hno2, no2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.