Даны два числа 5 и 6. Переведите их в двоичную систему счисления, в которой выполните сложение, вычитание и умножение этих чисел.

194

318

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

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

flymisflymis

Информатика

4,7(90 оценок)

Var a: array[1..1000,1..1000] of integer; m,n,mi,mj: integer; begin write('m(1..1000) = '); readln(m); write('n(1..1000) = '); readln(n); for var i: = 1 to m do begin for var j: = 1 to n do begin a[i,j]: =random(1,m*n); write(a[i,j],' ') end; writeln; end; mi: =m; mj: =n; for var i: = 1 to m do for var j: = 1 to n do if a[mi,mj]< a[i,j] then begin mi: =i; mj: =j end; writeln('max(a): a[',mi,',',mj,'] = ',a[mi,mj]); end.