XakepPRO,
ответ от компилятора:Free Pascal Compiler version 2.4.0-2 [2010/03/06] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling ./new.pas
new.pas(2,15) Fatal: Syntax error, ";" expected but ":" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Да, я тупарнул. Как раз хотел написать -=n;
 
Сцуко, я раньше уже решал эту гребаную считалку, забыл всё нафиг.
 
Помню, что не нужно забывать о том, что м может быть больше человеков. Фак. Придется проснуться.

мне нужен рабочий код, без ошибок!

dejqitz (09.07.2011/23:26)
мне нужен рабочий код, без ошибок!Ну тогда жди завтра, чтобы я за комп сел. На телефоне какбэ не очень удобно.
 
Ладно, мой моск щас способен лишь на ржач и на туп... Поэтому я, скорее всего спать. Завтра напишу и выложу.
 
А ты напиши ка мне заполнение двумерного массива по спирали
 
Витя,

Да, ночью голова не работает и уж тем более после трехдневных поездок.
А вообще надо заняться программированием а не Minecraft'ом, а то мозги сохнут.

Вот моё решение этой задачи. Изначально писал на C++, но понял, что далеко на нём не укачу, перешел на C#.

Основной метод решения:

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. /**
2.  * Основной расчет последовательности
3.  * @param n количество людей
4.  * @param m количество слогов в считалке
5.  * @return строковая последовательность чисел
6.  */
7. private string getSequence(int n, int m)
8. {
9.     StringBuilder sb = new StringBuilder();
10.     List<int> input = new List<int>();
11.     // записываем всю последовательность 1..n в массив
12.     for (int i = 1; i <= n; i++)
13.     {
14.         input.Add(i);
15.     }
16.     //начинаем вычислять
17.     int index = 0;
18.     while (input.Count > 0)
19.     {
20.         index += m;
21.         // нормализация индекса, чтоб не выходил за пределы массива
22.         while (index > input.Count) index = index - input.Count;
23.         // нормализация значений (отсчет с 1, а не с 0)
24.         index--;
25.         sb.Append(input[index]).Append(", ");
26.         input.RemoveAt(index);
27.     }
28.     // удаляем последнюю запятую, для красоты
29.     sb.Remove(sb.Length - 2, 1);
30.     return sb.ToString();
31. }

Вот exe'шник

aNNiMON, вссе проверил безусловно работает
Сейчас попробую откапать мой код на C++;

Хух нашел . Посмотрел - то еще быдлокод

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. #include <iostream>
2. #include <vector>
3.  
4. using namespace std;
5.  
6. vector<int> data;
7. int n, m;
8.  
9. void math(int t)
10. {
11.     if(t < data.size())
12.     {
13.         cout << data[t];
14.         if(data.size() > 2)
15.         {
16.             cout << ',';
17.         }
18.         data.erase(data.begin() + t);
19.         //
20.         math(t + m -1);
21.     }
22.     else
23.     {
24.         if( data.size() > 1)
25.         {
26.             math(t - data.size() +1);
27.         }
28.     }
29. }
30.  
31. int main()
32. {
33.     cout << "Words: ";
34.     cin >> m;
35.     cout << "People: ";
36.     cin >> n;
37.  
38.     data.push_back(n);
39.  
40.     for(int i = 1; i<= n; i++ )
41.     {
42.         data.push_back(i);
43.     }
44.  
45.     math(m);
46.     cout << endl;
47. }

dejqitz, о, теперь я знаю как векторы в C++ юзать спасибо)

aNNiMON, Страуструп тебе в помощь!