Первый автомат появился в 1881 году,его создал знаменитый русский математик и механиком академиком
П.Л.Чебышевым.
При использовании палитры из 1024 цветов для хранения одной точки необходимо log(2)1024 = 10 бит (2^10 = 1024).
Память для рисунка:
512*256*10 бит = 512*256*10 / 8 байт = 512*256*10 / (8*1024) Кбайт = 160 Кбайт
<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
var m := ReadArrInteger(10);
var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);
Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');
end.
<u>Пример:</u>
1 2 3 4 5 6 7 8 10 10
Четных больше