Question

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

Answer 1

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

var S,i  : word;
Begin
  writeln ('Введите площадь прямоугольника');
  readln (S);
  writeln ('Возможные прямоугольники:');
  for i:=1 to S do
    begin
      if (S mod i)=0 then
         begin
          writeln ('сторона а=',i,' сторона b=',S/i);
        end;
    end;
End.