Сначала необходимо решить задачу в общем виде, затем построить таблицы.
Ниже приведен пример создания таблиц для этой задачи.
Лист защищен без пароля, чтобы случайно не повредить формулы..
Клетки для ввода начальных данных не защищены.
Формулы можно увидеть в строке формул.
<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
Смотря сколько дюймов например 1x1 - 3 пикселя
3 бита, ибо 8=2^3
еслиб было 7 букв, тоже 3 бита было бы. А вот если 3 буквы, то уже 2 бита
Program gt;
var A,B,C:real;
begin
readln(A,B,C);
if(A<B)and(B<C)then A:=B+C else A:=C-B;
writeln(A,' ',B,' ',C);
end.
