Так как мощность равна 256, то на кодирование одного символа идёт 8бит или 1 байт.
Тогда 6*30*80=14400байт
14400:1024=14,0625кБайт
Ответ 14,0625
var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
Зрителельная ,тактильная ,вкусовая,слуховая
Если поочередно, то это временное разделение
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Введите m и n:');
var a := MatrRandom(m, n, -99, 99);
a.Println;
Writeln;
foreach var j in Range(1, n - 1, 2) do
a.Col(j).Println
end.