Question

Помогите, пожалуйста!!! Очень срочно
Составьте алгоритм решения следующей задачи. Найти все равновеликие прямоугольники, стороны которых выражены целыми числами a и b ,а площадь равна s (а и b принадлежат интервалу от 1 до 20, а s вводится с клавиатуры) ​

Answer 1

Ответ:

program z1640023;

var a,s:integer;

begin

writeln('Введите s=');

readln(s);

for a:=1 to 20 do

if s mod a=0

then writeln('a=',a,' b=',s div a);

end.