Перевести число 234, 25 из десятичной в двоичную систему счисления с объяснением

Т.к. система счисления в которую переводим двоичная, то следует делить на 2: 1) 234: 234 / 2 = 117  остаток 0 117 / 2 = 58 остаток 1 58 / 2 = 29 остаток 0 29 / 2 = 14 остаток 1 14 / 2 = 7 остаток 0 7 / 2 = 3 остаток 1 3 / 2 = 1 остаток 1 1 / 2 = 0 остаток 1 ответ: 234(10) = 11101010(2) 2) 25: 25 / 2 = 12 остаток 1 12 / 2 = 6 остаток 0 6 / 2 = 3 остаток 0 3 / 2 = 1 остаток 1 1 / 2 = 0 остаток 1 ответ: 25(10) = 11001(2)

Var z: array [1..10] of integer; i,max,min: integer; begin writeln('введите массив: '); for i: = 1 to 10 do       begin       write('z(',i,') = ');       readln(z[i]);       end; max: =z[1]; min: =z[1]; for i: = 2 to 10 do       begin       if (z[i]> max) then max: =z[i];       if (z[i]< min) then min: =z[i];       end; writeln('наибольшее число = ',max); writeln('наименьшее число = ',min); end.

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('вводите: ');   s+=s.last; writeln(s) end. пример вводите: моя строка! моя если s2 не последний символ строки s1, а самостоятельная строка. begin   var s1: =readlnstring('строка 1: ');   var s2: =readlnstring('строка 2: ');   s1+=s2.last; writeln(s1) end. пример строка 1: моя строка строка 2: тоже моя! моя строка!