// PascalABC.NET 3.3
begin
var a:=ReadArrInteger('Введите год, месяц, число:',3);
Write('S=',a.Sum);
end.
Пример:
Введите год, месяц, число: 2018 3 14
S=2035
1)<em> iс = 1,5 Кб</em>
<em>K = 3072</em>
1,5 кб = 1,5 * 1024 = 1536 байт * 8 = 12 288 бит
N = 2 (в степени i)
<em>ic = i * K;</em> i = ic : K
i = 12 288 бит : 3072 = 4
N = 2 ( в 4 степени) = 16
Ответ: 16
2)<em> N = 256</em>
ic = i * K
N = 2 (в степени i)
i = 8 бит
ic = 30 * 70 * 5 * 8 бит = 84 000 бит