Переведите числа с 16-тиричной системой в 8-ричную и 10-ричную: 2a2=? 186=? bb=? переведите числа с 8-ричной системой в 10-ричную и 16-ричную: 74=? 165=? 302=? переведите числа с 10-ричной системой в 8-ричную и 16-ричную: 98544=? 24636=? 73908=? 6159=?

1.2a2(16) =001010100010=1248(8)

2a2(16) = 2·16^0 + 10·16^1 + 2·16^2 = 674(10)2. 186(16) =000110000110=606(8) 

186(16) = 6·16^0 + 8·16^1 + 1·16^2 = 390(10)3. bb(16) = 010111011=273(8)bb(16) = 11·16^0 + 11·16^1 = 187(10)1. 74(8) =00111100=3c(16)

74(8) = 4·8^0 + 7·8^1 = 60(10)2. 165(8) = 001110101=75(16)165(8) = 5·8^0 + 6·8^1 + 1·8^2 = 117(10)3. 302(8) = 001100000010=1402(16)302(8) = 2·8^0 + 0·8^1 + 3·8^2 = 194(10)1.делим число на 8 и выписываем остатки98544 = 12318·8 + 012318 = 1539·8 + 61539 = 192·8 + 3192 = 24·8 + 024 = 3·8 + 0

если выбрать в windwols - калькуляторе в меню вид пункт инженерный, то можно считать в двоичной, восмиричной, обычной и шестнацатиричной системах(менять систему при кружочков с надписьями hex, dec, oct, bin) и переводить из одной в другую.

и т.д.

- !

- !   вот вам меню.

- . я готова сделать заказ.

- да, .

- можно мне кусочек шоколадного торта и чашку зеленого чая?

- конечно. все будет готово через минуту.

- ! рада слышать это.

- вот ваш чай и ваш торт.

- !

- приятного
аппетита.

- !

(через пятнадцать минут) 

- извините, сколько мне платить?

- 190 рублей. 

- вот, . сдачи не надо.

- , приходите еще!

перевод:

- bună!

- bună! iată un meniu pentru dvs.

- mulțumesc. sunt gata să fac o
comandă.

- da, te rog.

"pot să am o felie de tort de ciocolată și o ceașcă de ceai verde? "

- bineînțeles. totul va fi gata într-un minut.

- mulțumesc! mă bucur să aud.

- iată ceaiul și prăjitura ta.

- mulțumesc!

- apetitul bun.

- mulțumesc!

(după cincisprezece minute)

- scuzați-mă, cât ar trebui să plătesc?

- 190 de ruble.

- aici ești. schimbarea nu este necesară.

- mulțumesc, vino din nou!

ответ:

program arrays;

var

  a: array of string;

  i: integer;

  s: string;

begin

  s : = '';

  i : = 0;

  writeln ('введите элементы массива через enter. пустое значение - окончание ввода: ');

  repeat

    readln (s);

    if s < > '' then begin

      inc (i);

      setlength (a, i);

      a [i - 1] : = s;

    end;

  until s = '';

  for i : = low (a) to high (a) do

    if length (a [i]) > 4 then

      a [i] : = a [high (a)];

  writeln;

  writeln ('результирующий массив: ');

  for i : = low (a) to high (a) do

    write (a [i], ' ');

  readln;

end.