Const n = 3; var a: array[1..n,1..n] of integer; i,j,k: integer; begin randomize; writeln('исходный массив a(',n,',',n,'): '); k: =0; for i: = 1 to n do begin for j: = 1 to n do begin a[i,j]: =random(50); write(a[i,j]: 4); if (j> i)and(a[i,j] mod 2 = 0) then k: =k+1; end; writeln; end; writeln('k = ',k); end.
Владислав1246
11.02.2021
Const n = 4; var a: array[1..n,1..n] of real; b,x,ax: array[1..n] of real; i,j: integer; s: real; begin randomize; write('b(',n,'): '); for i: = 1 to n do begin b[i]: =random(721)-360; write(' ',b[i]: 4) end; writeln; write('x(',n,'): '); for i: = 1 to n do begin x[i]: =random(721)-360; write(' ',x[i]: 4) end; writeln; writeln('a(',n,',',n,'): '); for i: = 1 to n do begin write(' '); for j: = 1 to n do begin a[i,j]: =random(721)-360; write(' ',a[i,j]: 4) end; writeln; end; writeln; write('ax: '); for i: = 1 to n do begin ax[i]: =0; for j: = 1 to n do begin ax[i]: =ax[i]+a[i,j]*x[j]; end; write(' ',ax[i]) end; writeln; write('ax+b: '); for i: = 1 to n do begin x[i]: =ax[i]+b[i]; write(' ',x[i]) end; writeln; write('|ax+b| = '); s: =0; for i: = 1 to n do begin s: =s+x[i]*x[i]; end; writeln(sqrt(s)) end. пример: b(4): -51 179 276 -273 x(4): -272 -261 -57 304 a(4,4): -169 -94 245 -346 -351 -176 280 1 -193 -330 219 -54 338 -57 -44 -328 ax: -48647 125752 109727 -174263 ax+b: -48698 125931 110003 -174536 |ax+b| = 246563.556248688
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Решите текст содержит 32 символа записанных в кодировке кои - 8, где каждый символ кодируется по 8 бит. сколько байт занимает данный текст?
ответ:
32 байта
объяснение:
1)8бит=1байт
2)каждый символ кодируется 8бит=1байт
3)всего 32 символа значит 32 байта