Задача "Метеориты"

[makskovalko]

Здравствуйте! Всех с праздниками! Помогите решить задачу! Ход решения мне ясен, интересует код. Заранее спасибо!

[BDA]

int p = 0;
while (n >= k) {
    int t = n / k;
    n %= k;
    p += t * (k / m);
    n += t * (k % m);
}
cout << p;

[makskovalko]

А можно на Pascal?

[Вадим Мошев]

В задачу не вникал вообще.
Перевожу то, что написал BDA.

p := 0;
while n >= k do
	begin
    	t := n div k;
    	n := d mod k;
    	p := p + t * (k div m);
    	n := n + t * (k mod m);
	end;

write(p);

[makskovalko]

Спасибо большое! Всё работает!