Question

Вводятся стороны квадратов а1 и а2. Определить, какая сторона больше. Вывести большую сторону на экран.(Написать в паскале)

Answer 1

var a1, a2: real;

begin

   readln(a1, a2);

   if a1 > a2 then writeln(a1) else writeln(a2)

end.

Answer 2

Вот пример кода на языке Pascal, который сравнивает длины сторон двух квадратов и выводит на экран большую сторону:

pascalCopy code
program CompareSquareSides;
var
  a1, a2: integer;
begin
  writeln('Введите длину стороны a1 квадрата:');
  readln(a1);
  writeln('Введите длину стороны a2 квадрата:');
  readln(a2);

  if a1 > a2 then
    writeln('Сторона a1 больше. Длина стороны: ', a1)
  else if a2 > a1 then
    writeln('Сторона a2 больше. Длина стороны: ', a2)
  else
    writeln('Стороны равны.');

  readln;
end.

При запуске программы она будет запрашивать у пользователя длины сторон a1 и a2 для двух квадратов. Затем она сравнивает значения и выводит сообщение о том, какая сторона больше (или сообщение о равенстве сторон).