Question

Написать программу в Pascal (полностью). С клавиатуры вводятся стороны двух прямоугольников. Определить площадь какого прямоугольника больше.

Answer 1

Var
a, b, c, d: integer;
begin
writeln('Введите стороны 1 прямоугольника: ');
readln(a, b);
writeln('Введите стороны 2 прямоугольника: ');
readln(c, d);
if a*b > c*d then
writeln('Площадь 1-го больше');
if a*b = c*d then
writeln('Площади равны');
if a*b < c*d then
writeln('Площадь 2-го больше');
end.

Answer 2

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

pascalCopy code
program CalculateRectangleArea;
var
  Length1, Width1, Area1, Length2, Width2, Area2: real;

begin
  writeln('Введите стороны первого прямоугольника:');
  write('Длина: ');
  readln(Length1);
  write('Ширина: ');
  readln(Width1);

  writeln('Введите стороны второго прямоугольника:');
  write('Длина: ');
  readln(Length2);
  write('Ширина: ');
  readln(Width2);

  Area1 := Length1 * Width1;
  Area2 := Length2 * Width2;

  writeln('Площадь первого прямоугольника: ', Area1:0:2);
  writeln('Площадь второго прямоугольника: ', Area2:0:2);

  if Area1 > Area2 then
    writeln('Площадь первого прямоугольника больше.')
  else if Area2 > Area1 then
    writeln('Площадь второго прямоугольника больше.')
  else
    writeln('Площади прямоугольников равны.');

  readln;
end.

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