a*b*i=I
N=2^i
Где a*b-размер изображения, N-количество цветов,i-количество памяти на один пиксел, I-Вес рисунка(бит)
1)64*64*i=512*8
i=1
N=2
Ответ:2
2)256=2^i
i=8
a*b*8=2400*8
a*b=2400
Ответ:2400
3)N1=4=2^2
I1=64*128*2=2^14бит=2кбайт
N2=16=2^4
I1=32*32*4=2^12бит=0,5кбайт
Ответ:на первое изображение потребуется в 4 раза больше места
var a,b1,b2:integer;
begin
readln(a); //считываем число
b1:=a mod 10; // единицы
b2:=(a - b1) mod 100; //десятки
write(a-b2); // число минус десятки
end.
A:=3 - вместо переменной a будем ставить 3
b:=-1 - вместо b будем ставить -1
b:=9+a*b - ставим вместо a число 3, а вместо b число -1,
получим b=9+3*(-1)=9-3=6
- это НОВОЕ значение переменной b!
Теперь вместо a ставим 3, а вместо b ставим число 6!
a:=(b*b)/(b/a) - ставим справа вместо a число 3, а вместо b число 6,
получим a=(6*6)/(6/3)=36/2=18
Ответ: a=18
//Я так понял, что нужно объеденить 2 массива в 1 большой. Если же нужно, чтобы каждый элемент третьего массива состоял из суммы элементов с такии же индексом двух предыдущих массивов, то нужен другой код
Program Test;
const Size = 5; x = 1; y = 10;
Var i, j, Entered: integer; Arr1: array[1..Size] of integer; Arr2: array[1..Size] of integer; Arr3: array[1..Size * 2] of integer;
Begin
Randomize;
j := 0;
for i := 1 to Size do
begin
Arr1[i] := Random(x, y);
Arr2[i] := Random(x, y);
end;
for i := 1 to Size * 2 do
begin
if (i <= Size) then
Arr3[i] := Arr1[i]
else
begin
j := j + 1;
Arr3[i] := Arr2[j];
end;
end;
Write('Показать 1 массив? Если да, то введи 1: ');
Readln(Entered);
if (Entered = 1) then
begin
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr1[i]);
end;
Writeln();
Entered := 0;
Write('Показать 2 массив? Если да, то введи 2: ');
Readln(Entered);
if (Entered = 2) then
begin
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr2[i]);
end;
Writeln();
Writeln('Суммарный массив:');
Writeln();
for i := 1 to Size * 2 do
Writeln('Элемент ', i, ' = ', Arr3[i]);
End.
Решение - в прилагаемом файле.