Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
balatzkymaxp0a4t7
09.02.2023 09:17 •
Информатика
Составить программу, которая запрашивает координаты двух точек, а выводит длину отрезка, концами которого эти точки являются, и координаты середины этого отрезка. (блок систему и на языке паскаль)
Показать ответ
Ответ:
Притти
04.10.2020 20:39
Program Programma;
Uses crt;
var xA,xB,yA,yB,D: real;
Begin clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB);
d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
write('Длина отрезака AB = ',d:0:3)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Masha9771
04.04.2022 09:08
Cоставить программу, выводящую на экран таблицу умножения на 4, qbasic, используя цикл....
nadyayde
04.04.2022 09:08
1)дан двумерный массив целых чисел размерностью 5х7. найти и вывести на экран среднее арифметическое элементов этого массива...
kill2021
04.04.2022 09:08
Почему информация в компьютере представляется в двоичном виде?...
lisnyakmashenk
23.06.2021 17:15
Задание 1 Выберите верные обозначения истинности/ложности логических высказываний. Выберите несколько из 8 вариантов ответа: 1) True/False.5) Правильно/Неправильно. 2) T/F.6)...
TUBERSUSLIK
15.01.2021 08:13
Можно ли к usb разветвителю (который будет подключён к USB 3.1 в ноутбуке) подключить графический планшет и мышку ? Ну в плане может питания хватать не будет или по скорости...
mujgan04
27.08.2020 18:08
задания: 1. Переведите число 23, записанное в десятичной системе счисления в двоичную, восьмеричную. шестнадцатеричную...
Лика1508
16.10.2022 14:49
Сіз Интернет арқылы досыңызға 15 Мбайт файлды жібергіңіз келеді. Сіздің жүктеу жылдамдығы – 5 Мбит/с және 3 Мбит/с болған жағдайда, бұл хатты жіберуге қанша уақыт жұмсалады?...
симона71
11.08.2022 10:02
4. В ходе получения некоторого сообщения неопределенность знаний уменьшилась в 20 раз. Какой информационный объем содержит данное сообщение?13.На книжной полке стоят книги...
lfif123456789
25.02.2022 05:39
Определи, к какому виду относятся системы счисления. (Перетащи правильные ответы в нужные окошки.) Позиционные Непозиционные...
Naruto1111111111
30.05.2020 13:38
Запишите в развернутой форме числа: а) 151,4410 б) 4956,53910 в) 1376,218 г) 45В16 Заранее ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Uses crt;
var xA,xB,yA,yB,D: real;
Begin clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB);
d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
write('Длина отрезака AB = ',d:0:3)
End.