256 = 2^8. Значит 1 пиксель - 8 бит - 1 байт
8Мб = 8 * 1024 = 8192 байт - это площадь прямоугольника
Высоту примем за x, отсюда ширина 2x
S = x*2x = 2x^2
2x^2 = 8192
x = 64
Ответ: Высота 64 пикселя, ширина 128 пикселей
Все еще проще можно написать
1.
Program chislo;
var i,s:Integer;
begin
i:=100;
while i<=999 do
begin
if (i mod 2 <> 0) then s:=s+i;
Inc(i);
end;
Writeln(s);
end.
2. Число в обратном порядке (ввод с клавиатуры)
Program sum_3;
var n,s:Integer;
begin
Read(n);
while(n>0) do
begin
s:=n mod 10;
n:=n div 10;
Write(s);
end;
end.
Задание 1.
Затрудняюсь дать ответ
Задание 2.
]Первое действие
]] "а" присваивается значение 4
]Второе действие
]]"b" присваивается значение 15
]Третье действие
]]"а" присваивается значение "b-a*3", подставляем известные нам числа и получаем 15-4*3=15-12=3
]]Четвертое действие
]"b" присваивается значение 24/a*4, подставляем известные нам числа и получаем 24/3*4=32
Ответ: b=32
Задание 3.
Аналогично 2му заданию
<span>а:= 8 (а=8)
b := 3 (b=3)
b := a/2*b (a/2*b=8/2*3=12)
a := 2*а + 3*b (2*a+3*b=2*8+3*12=52)
Ответ: а=52
</span>