написать вложенный цикл

ваня на п

саша на в

коля на с

петя на к 

s: =5;

k: =s+10=5+10=15;

k: =s+k=5+15=20;

s: =2*k=2*20=40;

ответ: б)40

var s,p: real;

i: integer;

begin

  p: =1;

  for i : = 1 to 14 do

      if i mod 2 = 0 then p: =p*i

      else s: =s+i;

  writeln(p,s);

end.

сначала 9кбайт переделываем просто в байты. поэтому 9*1024=9216. потом переводим в биты? 9216*8=73728. и делим на 2048. получается 36 секунд.