Написать программу, которая описывает как целые переменные и вводит с клавиатуры длины сторон прямоугольника (a и b), рассчитывает и выводит на экран значение периметра (переменная p вещественного типа) с двумя знаками после запятой.
More Questions From This User See All
Answers & Comments
Verified answer
Ответ:
program Perimeter;
var
a, b: Integer;
begin
Write ('Введите стороны прямоугольника: ');
ReadLn (a, b);
WriteLn ('Периметр = ', (a + b) * 2);
ReadLn;
end.