Запишите ip адресс из четырех десятичных чисел в 32 битном виде: 65.128.255.12

01000001.10000000.11111111.00001100 все четыре числа переводим в двоичную систему и каждое переведенное  число записываем в восьмиразрядном виде например 65(10) 65   делим на 2 (берем только целую часть без округления) получаем 32 затем 32 делим на 2 и т.д. 65       32     16   8   4   2   1   1         0       0     0     0   0   1     если четное, пишем 0 65   = 1000001 = 01000001   

Без рекурсии: procedure abc(n: integer); var c: integer; begin c: =0; while n> 0 do     begin     c: =c*10+n mod 10;     n: =n div 10     end; while c> 0 do     begin     writeln(c mod 10);     c: =c div 10     end end; var n: integer; begin write('n = '); readln(n); abc(n); end. с рекурсией: procedure abc(n: integer); begin if n> 0 then     begin     abc(n div 10);     writeln(n mod 10);     end end; var n: integer; begin write('n = '); readln(n); abc(n); end.

// pascalabc.net 3.2, сборка 1400 от 13.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',10); a.println;   var m: =a.min;   var b: =a.where(x-> x< > m); b.println; end. пример n= 30 -3 6 -2 5 -1 -10 3 9 8 5 2 9 4 -10 8 10 6 9 -8 4 -7 2 10 -7 -7 -5 1 2 0 -3 -3 6 -2 5 -1 3 9 8 5 2 9 4 8 10 6 9 -8 4 -7 2 10 -7 -7 -5 1 2 0 -3 с процедурами и функциями (высосано из пальца, ибо не нужно) // pascalabc.net 3.2, сборка 1400 от 13.03.2017 // внимание! если программа не работает, обновите версию! function arrmin(a: array of integer): =a.min; procedure newsequence(a: array of integer; del: integer; var s: sequence of integer); begin   s: =a.where(x-> x< > del) end; begin   var a: =arrrandom(readinteger('n=',10); a.println;   var b: sequence of integer;   newsequence(a,arrmin(a),b);   b.println end.