Раз массив был заявлен на 48 значений целого типа, так и будет выделено 48 ячеек памяти этого типа
Ответ:
КОМПЬЮТЕР
Объяснение:
1)к "О" - "М"
2)на рисунке "ПУТЬ". У заменяем на ЬЮ. Апостроф после рисунка говорит, что забираем из слова последнюю букву. Так "ПУТЬ" превращается в "ПЬЮТ"
3)"СЕРДЦЕ", апостроф спереди и три апострофа после рисунка - забираем одну букву сначала слова и три в конце. Остается "ЕР"
Если используется однобайтовая кодировка, то 43 байта или 344 бита.
Var
matrix :array[1..4, 1..4] of integer;
min, sum, i, j :integer;
begin
min := maxint;
sum := 0;
for i:=1 to 4 do
for j:=1 to 4 do
read(matrix[i, j]);
for i:=1 to 4 do
for j:=1 to 4 do
begin
if matrix[i, j] < min then
min := matrix[i, j];
sum := sum + matrix[i, j];
end;
for i:=1 to 4 do
for j:=1 to 4 do
if matrix[i, j] < (sum / 16) then
matrix[i, j] := min;
end.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.
<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе