Question

Язык Паскаль. №1 Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k. №2 Дан масив целых числ. Найти в этом массиве минимальный элмент m и максимальный M. Получить в порядке возрастания все целые числа из интервала (m;M), которые не входят в данный массив. №3 Сформировать массив простых чисел , не больших заданного натурального числа N. №4 Сформировать массив простых множителей заданного числа.

Answer 1

1.
const n=10;
var a,b array [1..n] of integer;
i,j,k:integer;
begin
readln(k);
j:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod k=0) and(a[i]<>0) then 
begin
j:=j+1;
b[j]:=a[i];
end;
end;
for i:=1 to j do
write(b[i],'  ');
end.

Answer 2

Конечно, вот примеры программ на языке Паскаль для каждой из задач:

Задача №1: Фильтрация чисел по последней цифре

program Task1;

const
  MaxSize = 100;

var
  n, k, i: integer;
  originalArray, filteredArray: array[1..MaxSize] of integer;

begin
  // Ввод размера массива
  write('Введите размер массива: ');
  readln(n);

// Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
    read(originalArray[i]);

// Ввод цифры k
  write('Введите цифру k: ');
  readln(k);

// Фильтрация по последней цифре
  filteredArray := originalArray;
  n := 0; // обнуляем счетчик элементов в новом массиве
  for i := 1 to MaxSize do
  begin
    if (filteredArray[i] mod 10 = k) then
    begin
      n := n + 1;
      filteredArray[n] := originalArray[i];
    end;
  end;

// Вывод результата
  writeln('Новый массив, элементы которого оканчиваются на цифру ', k, ':');
  for i := 1 to n do
    write(filteredArray[i], ' ');
end.

Задача №2: Вывод чисел из интервала (m, M), которых нет в массиве

program Task2;

const
  MaxSize = 100;

var
  n, i, m, M: integer;
  arr: array[1..MaxSize] of integer;

begin
  // Ввод размера массива
  write('Введите размер массива: ');
  readln(n);

// Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
    read(arr[i]);

// Поиск минимального и максимального элементов
  m := arr[1];
  M := arr[1];
  for i := 2 to n do
  begin
    if arr[i] < m then
      m := arr[i];
    if arr[i] > M then
      M := arr[i];
  end;

// Вывод чисел из интервала (m, M), которых нет в массиве
  writeln('Числа из интервала (', m, ';', M, '), которых нет в массиве:');
  for i := m + 1 to M - 1 do
    if not (i in arr) then
      write(i, ' ');
end.

Задача №3: Формирование массива простых чисел

program Task3;

const
  MaxSize = 100;

var
  N, i, j: integer;
  isPrime: array[2..MaxSize] of boolean;

begin
  // Ввод максимального числа N
  write('Введите максимальное число N: ');
  readln(N);

// Инициализация массива простых чисел
  for i := 2 to N do
    isPrime[i] := true;

// Помечаем составные числа
  for i := 2 to Trunc(Sqrt(N)) do
    if isPrime[i] then
      for j := i * i to N do
        if (j mod i = 0) then
          isPrime[j] := false;

// Вывод простых чисел
  writeln('Простые числа не больше ', N, ':');
  for i := 2 to N do
    if isPrime[i] then
      write(i, ' ');
end.

Задача №4: Формирование массива простых множителей числа

program Task4;

const
  MaxSize = 100;

var
  num, i: integer;
  primeFactors: array[1..MaxSize] of integer;

begin
  // Ввод числа
  write('Введите число: ');
  readln(num);

// Формирование массива простых множителей
  writeln('Простые множители числа ', num, ':');
  i := 2;
  while (num > 1) do
  begin
    if (num mod i = 0) then
    begin
      write(i, ' ');
      num := num div i;
    end
    else
      i := i + 1;
  end;
end.

Примечание: Все программы предполагают, что ввод данных производится пользователем.