Задача 4: Калькулятор У калькулятора есть цифровой дисплей, на котором отображается первоначально число 1 и две кнопки, обозначим их «1» и «2». Если нажать на кнопку 1, то к числу на дисплее прибавится 1, а если нажать на кнопку «2», то число удвоится.

Запишите последовательность нажатий на кнопки, при которой можно из числа 1 получить число 46. В ответе запишите только номера этих кнопок. Например, запись:

221
означает нажатия на кнопки «2», «2», «1», и после такой последовательности нажатий из числа 1 получится число 5.

Чем меньше нажатий будет в вашем решениий, тем больше вы получите.

В этой задаче решение принимается на проверку во время олимпиады, если запись ответа содержит только цифры 1 и 2. При этом не проверяется то, что в результате исполнения данного алгоритма получается нужное число.

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

по центру каждой стены  по  стулу  а также в каждый угол по стулу

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт