Question

Есть прямоугольник, длина и ширина вводятся с клавиатуры, если длина больше то найти площадь прямоугольника, иначе найти периметр, вводится через паскаль

Answer 1

A-длина, b-ширина
var
a,b,x: real;
begin
readln(a,b);
if a>b then x:=a*b
else x:=2*(a+b);
writeln(x);
end.

Answer 2

Конечно! Вот пример кода на Pascal (Delphi), который решает задачу, описанную вами:

pascalCopy code
program RectangleAreaOrPerimeter;

var
  length, width, area, perimeter: Integer;

begin
  Write('Введите длину прямоугольника: ');
  Readln(length);

  Write('Введите ширину прямоугольника: ');
  Readln(width);

  if length > width then
  begin
    area := length * width;
    Writeln('Площадь прямоугольника равна ', area);
  end
  else
  begin
    perimeter := 2 * (length + width);
    Writeln('Периметр прямоугольника равен ', perimeter);
  end;

  Readln;
end.

В этом примере программа сначала запрашивает у пользователя длину и ширину прямоугольника. Затем она проверяет, является ли длина больше ширины. Если это так, программа вычисляет и выводит площадь прямоугольника. В противном случае программа вычисляет и выводит периметр прямоугольника.