Когда учитель достиг просветления, он понял, что должен раздать свои богатства, причём сделать это следующим образом: в первый день разделить все свои золотые монеты на 8 равных частей (счастливое излишки (если таковые будут иметься) пожертвовать храму будды, оставить себе одну восьмую часть, остальные раздать бедным.

во второй день вновь разделить оставшиеся монеты на 8 частей и повторить вышеуказанные манипуляции. и продолжать так до тех пор, пока у него не останется так мало монет, что при делении их на 8 равных частей они все окажутся излишком.


оставшиеся монеты можно оставить себе. кроме того, учитель не тратит свои деньги (во всяком случае, в дни после просветления): его кормят ученики, а в быту он аскетичен.


хотя учитель знает, конечно, сколько у него золотых монет изначально, но он не может сообразить, сколько монет окажется в конце — всё-таки он учитель духовных практик, а не или программирования. ему.


иными словами, найдите первую цифру введённого числа при записи его в системе счисления с основанием 8.


формат ввода

одно целое число — изначальное количество монет у учителя.


формат вывода

одно целое число — количество монет, которое останется у учителя в конце.


пример

ввод

129

вывод

2

эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим :

111100% =  60% девочек

1100 = 12 мальчиков

12 мальчиков составляют 40% учащихся в классе

составим пропорцию

12 - 40%

х  - 100%

х = 12 * 100 : 40 = 30

ответ. в классе 30 учеников.

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

  ответ надо продемонстрировать рисунком, я не умею на компьютере, поэтому рисую такую схему,как разместить зайцев в прямоугольной клетке.

з -это заяц,их должно быть 5:

                                                                                                        три зайца по углам и два у стенок по одному.

                  з                                        з                                    это для малышей,ее каждый ребенок знает.

                                                                з

                  з                        з

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.