<span>constnMax = 10;
var a:array [1..nMax] of integer;
buf :integer;
begin
readln(k, l);
for i := 1 to m do begin
buf := a[i, k];
a[i, k] := a[i, l];
a[i, l] := buf;
end;
<span>end.
</span></span>
Const Sz = 100; // Размер массив
var
a: array [1..Sz] of integer;
.
Очевидно, в условии опечатка.
Если "70 символов в строке, <span>28 строк, 7 страниц. 64 символа в алфавите", то
64 = 2^i
i = 6 бит на символ
70*28*7*6 = 82320 бит = 10290 байт ≈ 10 кбайт.
Если </span>"70 символов в алфавите, 28 строк, 7 страниц. 64 символа в строке", то ищем ближайшую целую степень двойки, такую, что
70 <= 2^i
2^6 = 64 < 70
2^7 = 128 > 70
i = 7
И тогда объём равен: 7*70*28*7 = 96040 бит = 12005 байт <span>≈ 11,7 кбайт.</span>
У светофора 3 цвета,красный ., жёлтый,зелёный , зелёный - идти,желтый ждать,красный стоять