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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
