Var a, b, n, i:integer;
s :array [1..10] of integer;
begin
read (n);{Размер массива}
for i:=1 to n do
begin
s[i]:=-50+random(99);
write (s[i],' ');
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
69 Кбайт = 69*2^13 бит = 23*3*2^13
736 = 23 * 32=23 * 2^5 128=2^7
(23 *3 * 2^13) : (23 * 2^5 * 2^7) = 3*2 = 6 бит ( ≈ 1 пиксель)
2^6 =64 цвета в палитре
До перелива 8 0 0
1) 3 5 0
2) 3 2 3
3) 6 2 0
4) 6 0 2
5) 1 5 2
6) 1 4 3
<span>7) 4 4 0</span>
Если дрова осиновые
-> да -> положить в навес
-> нет -> если дрова березовые
-> да -> положить в камин
-> нет -> положить в поленницу