с информатикой Составьте классификацию компьютерных моделей, указывая по 2-3 примера к каждому виду

1) 8
2) 7 выведет 1
3)
11 строка, поменять на k := k + 1;
14 строка заменить на if n = 1 then

Рабочий код

var
    n, k: integer;

begin
    read(n);
    k := 0;
    while n mod 7 = 0 do
    begin
        k := k + 1;
        n := n div 7;
    end;
    if n = 1 then
        writeln(k)
    else
        writeln('He существует')
end.

Правильное решение данной задачи
const
    divider = 7;

var
    n: integer;
    k: real;

begin
    read(n);
    k := ln(n) / ln(divider);
    if round(k) = k then
        writeln(round(k))
    else
        writeln('He существует');
end.

#include <iostream>

#include <algorithm>

#include <cstdlib>

#include <ctime>

int main()

{

   srand(time(0));

   int n,k;

   std::cin>>n>>k;

   int arr[n];

   for (int i=0; i<n; i++)

   {

       arr[i] = i+1;

   }

   int SIZE = sizeof(arr) / sizeof(*arr);

   

   std::random_shuffle(arr, arr + SIZE );

   

   for(int i=0; i<k; i++)

       for(int j=0; j<n-1; j++)

           if(arr[j]>arr[j+1])

               std::swap(arr[j], arr[j+1]);

           

   

   for (int i = 0; i < SIZE; ++i)

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

}