Написать программу нахождения периметра и площади прямоугольника. Стороны прямоугольника вводятся с клавиатуры. (Использовать Паскаль АВС).

Программа на PascalABC:
program Rectangle;
var
a, b, P, S: real;
begin
writeln('Введите длину прямоугольника:');
readln(a);
writeln('Введите ширину прямоугольника:');
readln(b);

P := 2 * (a + b);
S := a * b;

writeln('Периметр = ', P:0:2);
writeln('Площадь = ', S:0:2);
end.

Здесь периметр считается по формуле \( P = 2(a + b) \), а площадь — по формуле \( S = ab \).

0 0 Пожаловаться