![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
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. |
![]() ![]() |
![]() |
Текстовая версия | 24.04.2024 14:54 |