Увеличь. есть только такая . Надеюсь понравится .
Объясню так, чтобы разобрался.
Итак, каждый символ в документе .txt - 1 бит.
=> модем = 5 бит.
Это первое, т.е. информационный объем равен 5/8 байт.
С диском то же самое.
Объем файла - 5 бит.
Назначение помогать людям за зверями . Команды :напоминать когда кормит , играть(может делать все сам) Это задание на воображение подумай)
двое детей поплывут вместе. один останется, другой поплывет обратно. останется поплывет мать. обратно поплывет ребенок. дети поплывут обратно. один останется другой поплывет за отцом. ребенок останется поплывет отец. затем опять пеплывет ребенок за братом и вместе они вернутся.
Var i,j,p :integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
writeln(a[i]);
end;
writeln('Массив по возрастанию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]<a[j] then begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;end;
for i:=1 to 10 do
writeln(a[i]);
writeln('Массив по убыванию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]>a[j] then begin
p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end;
for i:=1 to 10 do writeln(a[i]);
readln;end.<span>
</span>