Program Begin19; var
x1,y1,x2,y2,P, S: Real;
begin
Writeln('Введите значение координат певой точки прямоугольника: ');
Write('Введите значение x: ');
Readln(x1);
Write('Введите значение y: ');
Readln(y1);
Writeln('Введите значение координат второй точки прямоугольника: ');
Write('Введите значение x: ');
Readln(x2);
Write('Введите значение y: ');
Readln(y2);
P:=2*(abs(x1-x2)+abs(y1-y2));
Writeln('Периметр прямоугольника равен: ',P);
S:=abs(x1-x2)*abs(y1-y2);
Writeln('Площадь прямоугольника равна: ',S);
end.
ПЕРЕВЕСТИ В КУМИР

alinkaivankiv   ·   26.11.2021 12:37
Ответов: 2 Показать ответы 5 Обсудить

Другие вопросы по Информатике

Склавиатуры вводят слово и символ.составить программу,которая: а)проверяет есть ли в этом слове заданный символ б)определяет позицию заданного символа в)подсчитывает количество вх...
Информатика
01.03.2019 16:30
4 ответ(ов)
Придумать и записать систему команд исполнителя для алгоритма постройки кирпичной стены....
Информатика
01.03.2019 22:50
2 ответ(ов)
Племя амазонка имеет256-и символьный алфавит.племя омега использует 128-и символьный алфавит.вожди племени обменялись письмами .письмо племени амазонка содержало 1245 символов,а пи...
Информатика
02.03.2019 07:50
2 ответ(ов)
Спаскаль абц нужно нарисовать сфетофор...
Информатика
03.03.2019 21:00
4 ответ(ов)
Соедини каждый рисунок с парой множеств. написано так 1)множество слов 2)множество названий рек.1)множество слов на букву а. 2)множество слов на букву б 1)множество слов на букву а...
Информатика
04.03.2019 10:40
4 ответ(ов)
Сделать эти две на языке паскаль! 1) решите биквадратное уравнение ax4 + bx2 + c = 0. 2)определите номер квадранта, в котором находится точка с заданными координатами (x, y)....
Информатика
06.03.2019 21:10
2 ответ(ов)
Написать программу,которая запрашивает название животного и число а затем выводит на экран фразу типа"белка съест 10 грибов"(при вводе слова "белка"и число 10) на !...
Информатика
06.03.2019 21:10
2 ответ(ов)
Нужно.. в чём заключается различие представления информации растрового и векторного типа в видеопамяти?...
Информатика
07.03.2019 18:10
4 ответ(ов)
Примеры исполнителей, встречающихся в народных сказках. определите их типы....
Информатика
08.03.2019 01:20
4 ответ(ов)
Найти ср.арифметическое элементов каждой из нечётных строк матрицы n-го порядка....
Информатика
08.03.2019 11:50
2 ответ(ов)
Чтобы выбрать фоновый рисунок чтобы выбрать основной цвет чтобы нарисрвать прямоугольник чтобы нарисовать квадрат чтобы нарисовать овал чтобы нарнисовать круг (в программе па...
Информатика
08.03.2019 23:20
2 ответ(ов)
Трамвайный билет имеет шестизначный номер(от 100000 до 999999). выяснить, является ли билет "счастливым". билет назовем "счастливым", если первая и последняя цифра билета являются...
Информатика
09.03.2019 02:00
3 ответ(ов)
Самые популярные сегодня