 простейший цикл, решение очень простое |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Ksander |
 5.08.2004 15:11
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация:  0   |
Лягушонок растёт. Каждый день он съедает в 2 раза больше комаров, чем в предыдущий день. Сколько комаров съест лягушонок в n-ый день, если в первый день он проглотил 1 комара?
Введите номер дня: <номер дня n> На <номер дня>день лягушонок съест <кол-во> комаров |
   |
 
|
| APAL |
5.08.2004 15:18
Сообщение
#2
|
 Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Где то я это уже видел.... дежа-ву!
-------------------- |
|
|
|
| FreeMan |
5.08.2004 15:31
Сообщение
#3
|
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
В школе: геометрическая прогрессия. Kol_vo=exp(ln(2)*kol_dney).
-------------------- бб
|
|
|
|
| trminator |
5.08.2004 15:42
Сообщение
#4
|
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Тогда уж лучше так:
kol-vo := 1 shl kol_dney -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
|
|
|
| APAL |
5.08.2004 15:58
Сообщение
#5
|
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
И по старинке пойдет...
Код Var N,i,k : Word; Summ : LongInt; Begin Write('Введите номер дня: '); Readln(N); Summ:=0; k:=1; For i:=1 to N do Begin Summ:=Summ+k; k:=k*2; End; Writeln('На ',N, '-ый день лягушонок съест ',Summ,' комаров'); End. -------------------- |
|
|
|
| FreeMan |
5.08.2004 16:01
Сообщение
#6
|
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
Вот блин, прожорливая жаба. Лягушёнок ест меньше... <_<
-------------------- бб
|
|
|
|
| APAL |
5.08.2004 16:04
Сообщение
#7
|
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
http://pascalnet.ru/forum/index.php?showtopic=2529
напишите туда формул для прогрессий -------------------- |
|
|
|
| Ksander |
5.08.2004 16:10
Сообщение
#8
|
|
Новичок Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация: 0 |
всем спасибо, скоро ещё парочку задач подкину
|
|
|
|
| BlackShadow |
5.08.2004 16:15
Сообщение
#9
|
|
Гость |
trminator, ты наверно хотел сказать (1 Shl n) - 1...
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 23.06.2025 13:45 |