BunraccoonXD
25.03.2021 14:54

на носителе информации хранятся текстовые файлы, содержащие ровно по  1  символов. в каждом файле хранятся только значения кодов символов с использованием двухбайтной кодировки unicode. весь объем данных носителя разбит на блоки одинакового размера. если размер носителя не кратен размеру блока, может остаться неразмечанная область, меньшая размера блока, в которую нельзя помещать информацию. для хранения каждого файла отводится целое количество блоков. если последний блок заполняется данными файла не до конца, оставшееся место не может быть использовано для хранения других файлов. весь объем данных носителя отводится только для хранения файлов.

если использовать блоки, размером  x  кбайт, то на носителе размером  8мбайт можно разместить ровно на  9файлов меньше, чем если использовать блоки размером  4×x  кбайт.

найдите минимальное значение x, при котором это возможно.

примечание:   1 мбайт = 1024 кбайт; 1кбайт = 1024 байта.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
stenyakina90
14.10.2022 02:36
Const n=10;
var a: array[1..n] of integer;
    i: integer;
begin
  randomize;
  writeln('список:');
  for i:=1 to n do 
  begin
    a[i]:=random(-20,20);
    write(a[i],' ');
  end; 
  writeln;
  for i:=2 to n do 
    if a[i]>a[i-1] then write(a[i]:4);
end.

список:
-20 -20 -14 -18 20 12 -2 -6 -13 15 
 -14  20  15

Если ввод с клавиатуры:

var a: array of integer;
    i,n: integer;
begin
  write('n = ');  readln(n);
  setlength(a,n+1);
  for i:=1 to n do read(a[i]);
  for i:=2 to n do 
  if a[i]>a[i-1] then write(a[i],' ');
end.
0,0(0 оценок)
Ответ:
чьзклу
14.10.2022 02:36
Составим алгоритм отбора чисел, удовлетворяющих условию задания.
В "списке" выделяются пары соседних элементов и в каждой паре проверяется, превышает ли значение второго элемента пары значение первого элемента. Если превышает, второй элемент значение второго элемента передается на выход. Для списка из n элементов процесс повторятся n-1 раз.

В условии есть один неприятный момент. Количество элементов в списке нигде не указано. Пока еще, увы, привычный большинству "школьный" паскаль не умеет работать с такими списками, а вот PascalABC.NET 3.3 может, поэтому используем его.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString.ToIntegers.Pairwise.Where(t->t[1]>t[0]).Select(t->t[1]).Println
end.

Результат
1 5 2 4 3
5 4
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота