Calculate the perimeter and area of the rectangle if its sides are specified. You need to write a program for this task (Pascal)
| August 16, 2021 | education
Program z1;
Var a, b, p, s: real;
Begin
write (‘Enter the length of the longer side of the rectangle->’); Read (a);
write (‘Enter the length of the shorter side of the rectangle->’); Read (b);
p: = (a + b) * 2;
s: = a * b;
writeln (‘Perimeter of the rectangle =’, p);
writeln (‘Area of the rectangle =’, s);
end.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
