В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
оля2036
оля2036
02.05.2023 12:19 •  Информатика

На отрезке натуральных чисел от a до b, найдите числа, количество делителей которых не меньше k. C#

Показать ответ
Ответ:
карина0212
карина0212
31.10.2021 10:14
2626  2618  2624 2628  2826  2426  1826   610 
+           -        -       -        -        +        +       +
26 26                                     24 26 18 26  6 10
99899                                    79899 19899 22244
4 плюсика. 
Из приведённых чисел могут получиться в результате работы автомата 4 числа. 
Это 2626, 2426, 1826, 610. 
В числах 2618, 2624 последовательности убывающие (26-18, 26-24).
В числах 2628, 2826 есть число 28, которое не может быть получено суммой трёх десятичных цифр, (максимум 9+9+9=27). 
0,0(0 оценок)
Ответ:
АлёнаKet234
АлёнаKet234
23.03.2022 02:06
Const
  n = 15;
  Flag = 111;

type
  Mas = array[1..n] of integer;

procedure ShiftLeft(var A: Mas; nPos: integer);
// Элементы массива A, начиная с номера nPos, сдвигаются на один к началу массива
// Последний элемент массива заносится значением 111
var
  i: integer;
begin
  for i := nPos to n - 1 do
    A[i] := A[i + 1];
  A[n] := Flag
end;

procedure ShiftRight(var A: Mas; nPos: integer);
// Элементы массива A, начиная с номера nPos, сдвигаются на один к концу массива
// Последний элемент массива теряется, элемент с номером nPos заносится значением 111
var
  i: integer;
begin
  for i := n downto nPos + 1 do
    A[i] := A[i - 1];
  A[nPos] := Flag
end;

function Contains5(p: integer): Boolean;
// Возвращает true, если в числе p есть хоть одна цифра 5
// Возвращает false в противном случае
var
  s: string;
begin
  Str(p, s);
  Contains5 := (Pos('5', s) > 0)
end;

procedure DeleteAll5(var A: Mas);
// Удаляет из массива А все элементы, содержащие цифру 5
var
  i, j: integer;
begin
  i := 1;  // текущая позиция в массиве
  j := n;  // количество непросмотренных элементов
  while j > 0 do
  begin
    if Contains5(A[i]) then
      ShiftLeft(A, i)
    else
      i := i + 1;
    j := j - 1
  end;
end;

function Fold(var A: Mas; pStart: integer): integer;
// Возвращает номер элемента в массиве А, значение которого кратно его номеру
// pStart - номер элемента, с которого начинается просмотр
// Если такого элемента не найдено, возвращается ноль.
var
  i: integer;
begin
  for i := pStart to n do
    if A[i] mod i = 0 then begin
      Fold := i;
      Exit
    end;
  Fold := 0
end;

procedure InsertK(var A: Mas; k: integer);
// После всех элементов массива, кратных своему номеру,
// вставляет значение k, сдвигая оставшиеся элементы
// к концу массива
var
  i, j: integer;
begin
  i := 1;
  while i <= n do
  begin
    j := Fold(A, i);
    if j > 0 then begin
      ShiftRight(A, j);
      A[j] := k;
      i := j + 1
    end
    else
      i := n + 1
  end
end;

function GetFirstPos(var A: Mas): integer;
// Возвращает номер первого положительного элемента в массиве А
// Возвращает ноль, если таких элементов нет.
var
  i: integer;
begin
  i:=1;
  while i <= n do
  begin
    if A[i] > 0 then begin
      GetFirstPos := i;
      Exit
    end
    else
      i := i + 1
  end;
  GetFirstPos := 0
end;

function GetLastNeg(var A: Mas): integer;
// Возвращает номер последнего по порядку отрицательного элемента в массиве А
// Возвращает ноль, если таких элементов нет.
var
  i: integer;
begin
  i:=n;
  while i >= 1 do
  begin
    if A[i] < 0 then begin
      GetLastNeg := i;
      Exit
    end
    else
      i := i - 1
  end;
  GetLastNeg := 0
end;

procedure Swap(var A: Mas; p: integer; q: integer);
// Обмен местами элементов массива A[p] и A[q]
var
  s: integer;
begin
  s := A[p]; A[p] := A[q]; A[q] := s
end;

var
  M: Mas;
  k, i, j: integer;

begin
  // Инициализация массива
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    M[i] := random(70) - 20;
    write(M[i]:4)
  end;
  writeln;
  DeleteAll5(M); // Удаление элементов, содержащих цифру 5
  writeln('После удаления элементов, содержащих цифру 5');
  for i := 1 to n do
    write(M[i]:4);
  writeln;
  writeln('Введите значение k');
  readln(k);
  InsertK(M, k);
  writeln('После вставки значения k');
  for i := 1 to n do
    write(M[i]:4);
  writeln;
  i := GetFirstPos(M);
  if i > 0 then begin
    j := GetLastNeg(M);
    if j > 0 then begin
      Swap(M, i, j);
      writeln('После обмена местами пары элементов');
      for i := 1 to n do
        write(M[i]:4);
      writeln;
    end
  end
end.

Тестовое решение:

Исходный массив
  -2  -5  43  12  13   5  -7   9  27   5  47  45  28  34  21
После удаления элементов, содержащих цифру 5
  -2  43  12  13  -7   9  27  47  28  34  21 111 111 111 111
Введите значение k
222
После вставки значения k
 222 222  -2  43  12  13 222  -7 222   9  27  47  28  34  21
После обмена местами пары элементов
  -7 222  -2  43  12  13 222 222 222   9  27  47  28  34  21
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота