Преобразуем
(i*i)/(i/2) = 2*i*i/i = 2*i
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(10,i->2*i,1); a.Println;
end.
<u>Результат</u>
2 4 6 8 10 12 14 16 18 20
Var A,i : Longint;
Begin
Readln(A);
For i:=1 to A do If A mod i = 0 then Writeln(i);
end.
А что именно надо? В чем проблема
Ответ № 1 - 32.
<span>a:=a*a*b; а=4*4*2=16*2=32
</span>