Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Александра142000
23.05.2021 11:39 •
Информатика
Составьте программу для вычисления периметра и площади прямоугольника, если известны координаты противоположных вершин прямоугольника (x1,x2) и (y1,y2). стороны прямоугольника параллельны осям координат.
Показать ответ
Ответ:
марс56
03.07.2020 17:15
Program qq;
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
larikhambekov
30.04.2022 06:51
Зачет по основам программирования 3. числа фибоначчи (fn) определяются формулами: f0=f1=1; fn=fn-1+fn-2 при n=2, f-первое число фибоначчи, большее заданного m(m 1);...
SkvidLe
19.12.2022 03:10
На языке паскаль написать программу которая вычисляет данную функцию: b = y в степени(x) + корень кубический из ( |x| + |y|). Где х = -0.85, а у= 1.25....
zxvgg
14.10.2022 14:40
Запиши математическое выражение (16+t)2 на языке Паскаль. (При записи ответа используй прописные буквы)....
НастюсикПоможусик
15.09.2021 15:38
Разработать математическую модель. Составить блок-схему алгоритма и тест. Написать программу на языке Pascal. Задача . Скорость первого автомобиля V1 км/ч, второго — V2 км /ч,...
58310
06.05.2020 11:05
Запиши выражение h+dh⋅m−4 в виде пригодном для использования в программе: (h+d)/(h∗m−4) h+dh⋅m−4 все ответы верные (h+d)÷(h⋅m−4)...
milka876
09.02.2023 06:32
Бастапқы бет не үшін керек?...
shahmir2406
26.08.2021 06:39
Винт-Пух и Пятачок пошли в гости к Кролику. Сколько мёда и сгущёнки можно съесть Вини-Пуху чтобы не застрять в двери...
arseniyyuldash
27.04.2020 21:12
Запиши выражение h+sh⋅m−5 в виде пригодном для использования в программе: (h+s)/(h∗m−5) (h+s)÷(h⋅m−5) h+sh⋅m−5 все ответы верные...
Ulia209
03.12.2020 22:38
Запиши выражение f+sq в виде пригодном для использования в программе: (f+s)÷q (f+s)/q f+sq все ответы верные...
NastyaVoitelnicha
07.09.2020 08:14
Дано описание переменных. Выбери верные ответы. var int1, int3: integer; y:real ; M: char; begin ... Имена переменных Типы данных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.