1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Bankir |
Сообщение
#1
|
|
Гость |
Помогите плз решить такую задачу в Паскале через проседуры
Условие: По одной легенде шах предложил мудрецу любой подарок какой тот захочет. Мудрец сказал чтобы на первую кетку шахматной доски положили одно зерно, на 2 - 2 зерна, на 3 - 4 зерна, на 4 - 16 зёрен и.т.д. ( геометрическая прогрессия) Составить программу, с помощью которой модно вычислить на какой клетке суммарное кол-во зёрен превысит N шт. ( на шахматной доске 64 клетки) Заранее спасибо. |
![]() ![]() |
| klem4 |
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
хех, поставь первой строкой в рограмме
{$n+}
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Bankir задача с геометрической прогрессией 28.05.2005 21:37
volvo В чем проблема? На чем застопорились?
Не знаем, ка… 28.05.2005 21:48
klem4 проблема в том ,что cкоро члены ряда перестанут ум… 29.05.2005 13:25
volvo
А Comp на что?
С его помощью можно попробовать об… 29.05.2005 14:31
klem4 Можт я чего-то не понимаю, но
хмм.. 8-й член = 429… 29.05.2005 14:50
volvo
Давай уточним условие:
если у тебя прогрессия гео… 29.05.2005 15:15
Bankir Да... с 16-ю я ошибся
А застопорился я на том что… 29.05.2005 15:58
volvo Вот тебе пример:
{$n+}
var
n, count, sum: c… 29.05.2005 16:01
Bankir С типом переменных comp ни чего не работало
показ… 29.05.2005 22:00
volvo Так в том-то и дело, что с Integer ты можешь работ… 29.05.2005 22:05![]() ![]() |
|
Текстовая версия | 7.11.2025 3:43 |