Определите, что будет напечатано в результате выполнения следующего алгоритма
var k,m:integer;
dat: array[1..10] og integer;
begin
dat[1]:=45; dat[2]:=55; dat[3]:=40; dat[4]:=15; dat[5]:=20; dat[6]:=80;
dat[7]:=35; dat[8]:=70; dat[9]:=10; dat[10]:=45;
m:=dat[1];
for k:=2 to 10 do begin
if dat[k] begin
m:=m+dat[k]; ;
end;
end;
write (m);
end

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.

Int main()
{
  int
    *array_X,
    *array_Y,
    numOfEl,
    border_C,
    prevNum;

  cout << "Input N: ";
  cin >> numOfEl;

  array_X = new int[numOfEl];
  array_Y = new int[numOfEl / 2];
  cout << "Input C: ";
  cin >> border_C;

  for (int i = 0; i < numOfEl; i++)
    cin >> array_X[i];

  prevNum = border_C;
  for (int i = 0, j = 0; i < numOfEl; i += 2)
    if (array_X[i] < border_C && array_X[i] != prevNum)
      array_Y[j++] = prevNum = array_X[i];

  cout << endl;
  for (int i = 0; i < numOfEl; i++)
    cout << array_X[i] << "; ";

  cout << endl;
  for (int i = 0; i < numOfEl / 2; i++)
    cout << array_Y[i] << "; ";

  system("pause");

  return 0;
} /* End of the 'main' function */