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.
ПЕРЕВЕСТИ В КУМИР

Популярно: Информатика

• 

  2xui2

  01.09.2020 13:09
  Сдать решение задачи 2-Наборы пирожных Полный : 100 Ограничение...
• 

  PolyaBarane

  04.12.2020 05:21
  В финальном заезде по спидвею (гонки на мотоциклах по ледяной...
• 

  Lovedashuta

  14.03.2022 17:55
  Ваш автомобиль находится на отмеченном изображением автомобиля...
• 

  машкооо

  26.03.2020 04:12
  Псевдокотың програмадан айырмашылығы...
• 

  Nikronix

  11.04.2023 10:29
  2. Напишите программу вычисления следующих выражений:а) k = √a+√b/√a2+b2​...
• 

  snitkovskayalena

  27.05.2023 20:29
  В классе 34 человека. Ученики этого класса посещают технический,...
• 

  manerov68

  29.07.2022 06:55
  У исполнителя Астронет две команды, которым присвоены номера:...
• 

  6епррг

  15.12.2022 18:09
  Дана начальная строка “abbcc”.Над ней несколько раз совершили...
• 

  Лавданим

  15.02.2021 22:50
  диагностика по информатике Найдите значение x: 5121 ≡ x mod 231....
• 

  fjdjwjqksnddjj

  02.09.2022 19:28
  решить на языке питон...