Вводиться натуральное число n вывести за числом n еще одно такое же.решать через while. язык паскаль. пример , ввожу число n 999 оператор врайтлайн выводит 999999.

Var n, i: integer;
 begin
  i := 0;
  readln(n);
  while i < 2 do
  begin
    write(n);
    i := i + 1;
  end;
end.

Код:

#include <iostream>

int* rearrange(int *A, int Asize) {

   int * result = new int[Asize];

   int p = 0;

   for (int i = 0; i < Asize; i += 2) {

       result[p] = A[i];

       ++p;

   }

   for (int i = 1; i < Asize; i += 2) {

       result[p] = A[i];

       ++p;

   }

   return result;

}

void print_arr(const int *A, int Asise) {

   for (int i = 0; i < Asise; ++i) {

       std::cout << A[i] << " ";

   }

}

int* change_it_k_times(int * const A, int Asize, int K) {

   int * result = A;

   for (auto i = 0; i < K; ++i) {

       result = rearrange(result, Asize);

       print_arr(result, Asize);

   }

   return result;

}

template <typename T>

void get_sequence(T* A, int N) {

   for (auto i = 0; i < N; ++i) {

       std::cin >> A[i];

   }

}

int main () {

   int N, K;

   std::cin >> N;

   auto A = new int[N];

   get_sequence(A, N);

   std::cin >> K;

   auto R = change_it_k_times(A, N, K);

   delete[] A;

   delete[] R;

   return 0;

}

Задание №1.

k = int(input('Начало диапазона '))
n = int(input('Конец диапазона '))
a = [0] * n # создание массива с n количеством элементов
for i in range(n): # заполнение массива
   a[i] = i
a[1] = 0

m = 2 # замена на 0 начинается с 3-го элемента

while m < n: # перебор всех элементов до заданного числа
  if a[m] != 0:
     j = m * 2
    while j < n:
        a[j] = 0
        j = j + m
       m += 1

# вывод простых чисел на экран
b = []
for i in a:
      if a[i] != 0 and i >= k:
      b.append(a[i])

del a
print(b)

Задание №2

count = 0
for i in range(13):
    for j in range(11):
        for k in range(9):
            if 185 == i*15+j*17+k*21:
                count += 1
                print(i,j,k)
print('Всего

Задание №3

x = int(input())
print('\n'.join(
str(n) for n in range(x+1)
if all(x != 0 and n % x == 0 for x in map(int, str(n