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

// Необходимо найти длины сторон всех прямоугольников,  // площадь которых равна заданному натуральному числу 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.