begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.
I = 64*64*16*256 - в битах
I = (64*64*16*256)/8 - в байтах
I = (64*64*16*256)/(8*1024) - в Кбайтах
I = (64*64*16*256)/(8*1024*1024) = 2 - в Мбайтах.
337,5 Кб=337,5*1024 байт = 345600 байт
Глубина цвета = 345600/(120*120) = 24 байта.
Формально получилось так. Но это далеко от реальных значений (возможно, что в числовых данных что-то напутано).
Ответ:
Программа запускалась в PascalABC.NET
Объяснение: