Напишите программу, которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон.
Обозначим длины сторон прямоугольника через a и b, площадь через s, периметр через p. Поскольку длины могут быть дробными, объявляем все переменные вещественными.
Сначала оператор read(a, b) вводит две стороны. По правилу вычисления площади прямоугольника получаем
var
a, b, s, p: real;
begin
write('Введите две стороны: ');
read(a, b);
s := a * b;
p := * (a + b);
writeln('Площадь = ', s: : );
write('Периметр = ', p: : )
end.
В записи s: и p: число после второго двоеточия задаёт две цифры дробной части. Для приведённого примера программа покажет Площадь = и Периметр = . Значит, она вычисляет обе запрошенные величины по введённым сторонам.
var
a, b, s, p: real;
begin
read(a, b);
s := a * b;
p := * (a + b);
writeln('Площадь = ', s: : );
write('Периметр = ', p: : )
end.
