<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
for var i:=0 to a.IndexMin-1 do a[i]:=0; a.Println;
end.
<u>Пример</u>
n= 13
-10 44 17 13 50 49 -7 -46 -36 14 35 42 26
0 0 0 0 0 0 0 -46 -36 14 35 42 26
11100(2) - 28 учеников
15(8) - 13 девочек
Мальчиков 28-13=15
1) 16 = 2^4 ---> 4 бита для одного пикселя
_____________________________________
Монитор - одна страница видеопамяти:
640*400*4 =(640)*(1600) =(5*2^7) * (25*2^6) = 125*2^13 (битов)=
=125 (Кбайтов)
________________________________________
Изображение:
1250:125 = 10 (страниц) ответ 10
------------------------------------------------------------------------------------------------
2) (65*2^13 битов ) : (850*200) = (65*8*1024) : (850*200) =
=532 480 : 170 000 =3,13≈ 4 бита 1 пиксель
2^4 =16 цветов ответ 16
1) 44-27=17 (р.) - едят только живой корм
2) 33-27=6 (р.) - едят только сушеный корм
3) 27+17+6=50 (р.) - не питаются свежими растениями
4) 52-50=2 (р.0
Ответ: свежими растениями питаются 2 рыбки.
Числовой.
Если число X, вернуть результат (X-1)/2.
Иначе вернуть "Не могу".