Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Mario1543554
11.08.2022 11:43 •
Информатика
Даны координаты двух противоположных вершин прямоугольника: (x1, y1), (x2, y2). стороны прямоугольника параллельны осям координат. найти периметр и площадь данного прямоугольника.
Показать ответ
Ответ:
moon2536
01.10.2020 16:58
Program pryamougolnik;
var x1, x2, y1, y2, a, b, s, p:real;
begin
write ('Введите координату х1 = ');
readln (x1);
write ('Введите координату y1 = ');
readln (y1);
write ('Введите координату х2 = ');
readln (x2);
write ('Введите координату y2 = ');
readln (y2);
a:=abs(x2-x1);
b:=abs(y2-y1);
p:=(a+b)*2;
s:=a*b;
writeln ('Периметр прямоугольника P = ', p);
writeln ('Площадь прямоугольника S = ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Айымгул1
11.04.2020 05:10
Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -10 до 10. посчитайте в этом массиве количество положительных и количество отрицательных...
ирпимрпмро
13.11.2022 16:06
Бэтмен считал день удачным, если ему удавалось совершить подвиг, и неудачным, если его была в этот день не нужна. супергерой вёл дневник, в котором отмечал каждый день либо у (удачный),...
Ильир
26.06.2022 01:07
Укажите наименьшее четырехзначное шестнадцатеричное число,двоичная запись которого содержит ровно 5 едениц. в ответе запишите само шестнадцатеричное число....
raydin
15.11.2020 18:33
Что делать если наушники i20 tws не заряжаются от кейса и греются при зарядке?...
Viola2801
27.08.2020 00:05
Запишите формулу по правилам записи формул в электронной таблице |4Х-cos3£|...
Retro2122
03.09.2021 20:13
Задача D. Водопровод с резервной ёмкостью Рассмотрим следующую модель водопровода. Имеется резервная ёмкость объемом V литров. По входной трубе постоянно поступает вода со скоростью...
ZAKHARRROVA20001
03.09.2021 20:13
Замени восьмеричную цифру 5 тремя двоичными цифрами (триадой)!...
Anna1111251
07.02.2020 10:44
Вычисление значения функции по заданному графику с++...
Seref
02.12.2022 19:15
Дана таблица в режиме отображения формул .записать эту же таблицу в режиме отображения значений: а в 1 2 =а1+2 2 =мин(а1: в1) =если(а1=а2; 8; сумм(а1: а2) 3 =и(а28) =или(а2=1; в1=1;...
BamakoProfile
14.04.2020 03:30
2проекта создания : 1. проект ленина 2.проект сталина (как назывались и что предлагали)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x1, x2, y1, y2, a, b, s, p:real;
begin
write ('Введите координату х1 = ');
readln (x1);
write ('Введите координату y1 = ');
readln (y1);
write ('Введите координату х2 = ');
readln (x2);
write ('Введите координату y2 = ');
readln (y2);
a:=abs(x2-x1);
b:=abs(y2-y1);
p:=(a+b)*2;
s:=a*b;
writeln ('Периметр прямоугольника P = ', p);
writeln ('Площадь прямоугольника S = ', s);
end.