Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
aishaefendieva
13.01.2021 08:09 •
Информатика
Даны координаты двух противоположных вершин прямоугольника: (x1,,y2).стороны прямоугольника параллельны осям координат.найти периметр и площадь прямоугольника.
Показать ответ
Ответ:
yubloh
04.10.2020 20:39
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 оценок)
Популярные вопросы: Информатика
dariadarina1
02.03.2021 18:03
,хоть что нибудь, мне на завтра...
ТимурМеирханов
12.04.2021 16:59
с итоговой контрольной 1.Один символ алфавита весит 3 бита.Какое максимальное кол-во символов может быть в этом алфавите?2.Алфавит состоит из 30 символов.Каков максимальный...
lenya013
12.12.2021 22:04
Урок 2 Установи соответствие между комбинациями«горячих» клавиш и их назначением.ПормаnсThereKasaraosсе.КрасаOoneраае соПри он остроCtrl + WСохранить документCtrl +...
katmar
21.12.2021 08:21
Формуланы В4:В8 уяшыктарына коширу барысында абсолютти силтеме Калай озгереди...
Никита20071910
31.12.2022 21:06
Сколько значащих нулей в значении выражения 4^200+8^100-2^150...
dianaism38
31.12.2022 21:06
Почему когда я как-бы вставляю из одного word a и в другой то у меня вообще шрифт становитсмя другой размер и вставляется как-то вообще не так как в том из которого...
Amfitom1ne
31.12.2022 21:06
Составьте программу, которая вычисляет сумму трёх чисел, введённых с клавиатуры, и выводит её на экран. формат ввода: a-первое число, b-второе число; с-третье число....
zhenya28081999
01.08.2021 07:29
Для подключения каких дисков используют usb?...
апк8
26.01.2023 04:42
РЕШИТЬ ЗАДАЧКУ БУДУ БЛАГОДАРЕН....
AishaZamyjem8
04.12.2020 22:47
РЕШАТЬ ЗАДАЧКУ БУДУ БЛАГОДАРЕН...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.