разобрать ГОСТ 27771-88 и ГОСТ Р МЭК 60950-2002 по табличке, очень надо

k = 5

Объяснение:

q = 15 s = 0 i = 1

Цикл с постусловием:

s = s + i

i = i + 1

выход из цикла когда s > q

q = 15 s = 0 i = 1

s = 0 + 1 = 1

i = 1 + 1 = 2

1 > 15 (НЕТ)

q = 15 s = 1 i = 2

s = 1 + 2 = 3

i = 2 + 1 = 3

3 > 15 (НЕТ)

q = 15 s = 3 i = 3

s = 3 + 3 = 6

i = 3 + 1 = 4

6 > 15 (НЕТ)

q = 15 s = 6 i = 4

s = 6 + 4 = 10

i = 4 + 1 = 5

10 > 15 (НЕТ)

q = 15 s = 10 i = 5

s = 10 + 5 = 15

i = 5 + 1 = 6

15 > 15 (НЕТ)

q = 15 s = 15 i = 6

s = 15 + 6 = 21

i = 6 + 1 = 7

21 > 15 (ДА) - выход из цикла

q = 15 s = 21 i = 7

k = i - 2

k = 7 - 2 = 5

Var a: array of integer; // Объявление массива целых чисел
  i, n: integer; // объявление целочисленных переменных
begin
  // Запросим с клавиатуры размер массива
  // и запишем его в переменную n
  write('введите n:'); 
  readln(n);
  
  // Теперь выделим память под n элементов массива
  SetLength(a, n);
  
  // теперь запросим с клавиатуры n чисел для массива
  for i := 0 to n-1 do begin
    write('a[', i, ']=');
    readln(a[i]);
  end;
  
  // теперь в цикле уменьшим каждый элемент на единицу
  for i := 0 to n-1 do 
    a[i] := a[i] - 1;
  
  // распечатаем массив
  for i := 0 to n-1 do 
    write(a[i], ' ');
end.