Определите площадь и периметр прямоугольника, если известно что одна сторона больше другой на x. (информатика, паскаль)
Определите площадь и периметр прямоугольника, если известно что одна сторона больше другой на x. (информатика, паскаль)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program Rectangle;
var
a, b, x, S, P: integer;
begin
write('Enter the difference between the sides: ');
readln(x);
write('Enter the length of the longer side: ');
readln(a);
b := a - x;
S := a b;
P := 2 (a + b);
writeln('Area of the rectangle: ', S);
writeln('Perimeter of the rectangle: ', P);
end.