Ваши друзья не знают про этот решебник.
Урок 17. Задание 4.
|
Program pryam; var x2,x1,s,p,y1,y2,ry,rx:integer; begin cls; read(x1,y1,x2,y2); if x1>x2 then rx:=x1-x2 else rx:=x2-x1; if y1>y2 then ry:=y1-y2 else ry:=y2-y1; s:=rx*ry; p:=2*(rx+ry); writeln('Периметр прямоугольника равен ',p); writeln('Площадь прямоугольника равна ',s); end. |