Перевести в системы исчисления с основанием 16, 8, 2 2332 в нижнем углу после цыфр 10

255

407

Посмотреть ответы 2

Ответы на вопрос:

yliya302

Информатика

4,8(87 оценок)

В16: 91c в 8: 4434 в 2: 100100011100

Vadym19

Информатика

4,6(96 оценок)

Pascalabc.net type mass = array [1..4] of integer; var a : mass; i : integer; function min(c : mass) : integer; var i,minim : integer; begin minim : = c[1]; for i : = 2 to 4 do if c[i] < minim then minim : = c[i]; result : = minim; end; begin for i : = 1 to 4 do readln (a[i]); writeln ('min = ',min(a)); end.как параметр я использовал массив из четырех элементов. можно использовать просто переменные и через if все прописать