1) 20*8 = 160 бит
2) 0,5*1024*1024*8 = 4 194 304 бит
3) 25*1024*8 = 204 800 бит
4) 256*8 = 2048 бит
1) 128/1024 = 0,125 кб
2) 5*1024 = 5120 кб
a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)
Модифицированные данные с диаграммами в 1 лист
Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.
[33 / 8] = 4
33 - 4*8 = 1
Десятичное 33 в восьмеричном представлении = 41