![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Sofo4ka |
![]() ![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Женский Репутация: ![]() ![]() ![]() |
считалка. заданы натуральные числа M и N (M число детей в круге, N число слов в считалке). создать программу,выводящую на экран номера детей в порядке выбывания ( здесь можно решить и с помощью массива)
|
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Поиск по форуму, ключевое слово - "Казнь"... Чуть-чуть модифицировать, и получишь то, что тебе нужно...
|
Sofo4ka |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Женский Репутация: ![]() ![]() ![]() |
спасибо
что то очень тяжелая,легче никак? |
klem4 |
![]()
Сообщение
#4
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Так пойдет ?
uses crt; n = 7 shift = 9 1 2 3 4 5 6 7 1 3 4 5 6 7 1 3 4 6 7 1 4 6 7 1 6 7 6 7 7 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Sofo4ka |
![]()
Сообщение
#5
|
Новичок ![]() Группа: Пользователи Сообщений: 12 Пол: Женский Репутация: ![]() ![]() ![]() |
да спс
![]() |
dize |
![]()
Сообщение
#6
|
Гость ![]() |
А не подскажите как вывести последовательность выбывших? Столкнулся с подобной задачей, а паскаль уже почти не помню.
|
Виктор |
![]()
Сообщение
#7
|
Гость ![]() |
Так пойдет ? uses crt; n = 7 shift = 9 1 2 3 4 5 6 7 1 3 4 5 6 7 1 3 4 6 7 1 4 6 7 1 6 7 6 7 7 Можешь помочь?не могу понять что делать эта функция i:=i mod n+1 Program schitalka; Const nmax=100; Var n,m,I,j:integer; Krug: set of 1..nmax; Begin Write(‘введите число человек: ’); read(n); Write(‘кого удалять?: ’); read(m); If (n>500) or (m>100) then write(‘ошибка’) Else begin Krug:=[1..n]; I:=n; End; Repeat For j:=1 to m do Repeat I:=I mod n+1 Until I in krug; Write(i:3); Krug:=krug-[i] Until krug=[ ]; Write(‘номер уцелевшего: ’,i); End. |
![]() ![]() |
![]() |
Текстовая версия | 6.09.2024 14:49 |