В разделе описания переменных
// Необходимо найти длины сторон всех прямоугольников,
// площадь которых равна заданному натуральному числу 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;
<span>End.</span>
Var
s: integer;
mas: array[1..4]of integer;
begin
s := 0;
for var i := 1 to 4 do
begin
mas[i] := i;
s := s + mas[i];
end;
writeln(s);
end.
Ответ:10
Всего 2 символа: 0 или 1
Позиций 5
Следовательно 2 в 5 степени
2^5 = 32