<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица[',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
for var i:=0 to m-1 do
for var j:=0 to n-1 do
if a[i,j].IsEven then a[i,j]:=1;
Writeln('*** Результирующая матрица[',m,',',n,'] ***');
a.Println(4);
end.
<u>Пример</u>
Количество строк в матрице: 6
Количество столбцов в матрице: 9
*** Исходная матрица[6,9] ***
23 -23 -25 38 40 38 50 45 -35
-41 31 2 30 37 -30 -9 -8 -28
-12 20 -20 32 29 7 19 23 46
-48 -21 -27 19 10 -17 -20 -27 -47
-39 -11 19 -23 9 6 29 -24 -14
2 -7 37 -22 38 23 5 -33 37
*** Результирующая матрица[6,9] ***
23 -23 -25 1 1 1 1 45 -35
-41 31 1 1 37 1 -9 1 1
1 1 1 1 29 7 19 23 1
1 -21 -27 19 1 -17 1 -27 -47
-39 -11 19 -23 9 1 29 1 1
1 -7 37 1 1 23 5 -33 37
Ну це коли автор не хоче щоб його (программу, ігру, тд.тп) хтось присвоїв , ну він ставить правила які не потрібно порушувати. Захищати ? Щоб уникнути втрачення своїх прав (т.е. що б хтось не присвоїв цю ігру...)
На один пиксель(дот) приходится 32 бита или 4 байта.Бумага формата А4 а значит её размер 8.3 на 11.7 дюймов(8.3*11.7=97.11 дюймов всего).На один дюйм приходится 600 пикселей.Всего пикселей 600*97.11=58266.32бита умножаем на всего пикселей 58266=1864512бита или 1864512\8=233064 байта или 233064\1000=233,064 кило байта
Не знаю как верно записано выражение. либо НЕтолько для X1
либо НЕ для X1 и X3
Нарисовала 2 варианта :)