Delphi. Какое значение получит k?
var i, j, k: byte;
i:=1; k:=0;
while i<3 do begin
inc(i);
for j:=1 to i do inc(k);
end;

Пояснення:

Для того, щоб обчислити відповідь на задачу, потрібно поділити m (кількість горішків) на n (кількість білочок). При цьому ціла частина цієї частки (ділення націло //) дорівнюватиме кількості горіхів, яку отримає кожна білочка, а остача (%) дорівнюватиме кількості горіхів, що залишиться.

Python:

n, m = map(int, input().split())

print(m // n, m % n)

C++:

#include <iostream>

using namespace std;

int main() {

   int n, m;

   cin >> n >> m;

   

   cout << m / n << " " << m % n << endl;

   

   return 0;

}

1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая:
x(2)=x(1)+1,
x(3)=x(2)+2,
...
x(n)=x(n-1)+n-1

В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp.
Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp  новым значением.
 
var i,k,kp:integer;
begin
kp:=1;
for i:=1 to 10 do begin
  k:=kp+i-1;
  kp:=k;
  writeln(k:5, k*k:6, k*k*k:8);
  end;
end.