Const
A = 10;
d = 2;
Var k : integer;
Function Detali(dd,kk : Integer) : Integer;
Begin
If kk>0 then Detali:=dd+Detali(dd+d,kk-1) else Detali:=0;
end;
Begin
Readln(k);
Writeln(Detali(A,k));
end.
Если имеется в виду кодирование каждого места одним битом (0 - свободно, 1 - занято), то для первой области 10×12=120 бит, для второй области 17×8=136 бит.
Всего потребуется 120+136=256 бит
Паскаль:
var a,b,c, sum,d,k: integer;
begin
Writeln('Введите А');
readln(a);
Writeln('введите б');
readln(b);
Writeln('Введите С');
readln(c);
d:= b-a;
sum:=d;
k:=c-a;
sum:=sum+k;
Writeln('Сумма=',sum,'Длина AB=',d,'AC=',k);
end
Var j,i:longint;
begin
for i:=2 to 3628800 begin
for j:=2 to 3628800 do writeln(i*j:10);writeln();
end;
readln;
end<span>.</span>
При однобайтовой кодировке символа одно слово займет 8 байт. За минуту читается 160 слов, это 160х8=1280 (Байт).
7 часов - это 7х60=420 минут и за это время можно прочитать слова с общим объёмом 420х1280=537600 байт. 1 Кбайт равен 1024 Байта, поэтому объем в килобайтах составит 537600/1024=525 (Кбайт).
Ответ: 525 КБайт.