Як виконується фрагмент алгоритму наведений на малюнку 3.44

триста восемьдесят девять миллиардов,триста шестьдесят пять миллионов, четыреста две тысячи, двести один.

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);

решаем относительно  a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4.