СРОЧНО ДАМ 14 БАЛОВ
СРОЧНО ПОМОГИТЕ
СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ НАХОЖДЕНИЯ ПЕРИМЕТРА ПРЯМОУГОЛЬНИКА ПО ЗАДАННЫМ КООРДИНАТАМ ЕГО ВЕРШИН АBCDE
Var ax,ay,bx,by,cx,cy,dx,dy,p:real;
begin
write (Введите координаты точки A: );
read (ax,ay);
write (Введите координаты точки B: );
read (bx,by);
write (Введите координаты точки C: );
read (cx,cy);
write (Введите координаты точки D: );
read (dx,dy);
p:=abs(2*((by-ay)+(cx-bx)));
writeln;
writeln (Периметр = ,p);
end.
Оцени ответ
