Только первые 3 смогла решить, прости
Program massivy;
var array1: array [1..14] of integer;
array2: array [1..10] of string;
array3: array [1..7] of string;
i, b:integer;
begin
for i:= 1 to 14 do
array1[i]:=random(-5, 5);
for i:= 1 to 10 do
array2[i]:='Слово';
for i:=1 to 7 do
readln(array3[i]);
end.
Ответ:
money = int(input())
while money % 8 != money:
money //= 8
print(money)
Объяснение: Вот это верный, 14 из 14 баллов
Mas:array[1..31] of integer;
mas[i] будет хранить вес в день i
3 Мб = 3*1024*1024*8 = 25165824 бит
3200*1800 = 5760000- всего пикселей
25165824/5760000 = 4.36 бит на пиксель округляем до 4 бит на писель
2^4 = 16
Ответ: 16 цветов