Знайти добуток чисел вiд 1 до P, кратне 3. Число P вводиться з клавиатуры.

от +10 до +30 21 значение, n=21

используем формулу n=2^i

тогда i=5бит (с избытком) 1измерение

сделано 27измерений, 27*5=135бит

ответ: 135 бит.

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

var

mas : array[1..15] of integer;

i: integer;

begin

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

end;