Информационный объем статьи 96 кбайт. сколько страниц займет статья, если на одной странице электронного документа помещается 24 строки по 64 символов, а каждый символ представлен кодировке unicode каждый символ занимает 16 бит памяти
// PascalABC.NET 3.2, сборка 1382 от 06.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var p:=ReadInteger('Номер строки для формирования вектора:'); var x:=a.Row(p-1); x.Println end.
Const n=4; m=5; var a:array[1..n,1..m] of integer; i,j:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(51); write(a[i,j]:4); end; writeln; end; writeln; for i:=1 to n do for j:=1 to m do if a[i,j] mod 2 <> 0 then a[i,j]:=a[i,j]+10 else a[i,j]:=a[i,j]-10; writeln('Измененный массив:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; end.
(96 * 1024)/(24*64*2) = 32