На первую клетку он положил 1 зерно на 2 -2 на 3 -4 и т.д. на каждую следующую в 2 раза больше...
Не подскажете как это записать
при помощи sqr(x) ?
 Цикл |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
Ответов
| VelarThind |
Сообщение
#2
|
 Новичок  Группа: Ожидающие Сообщений: 15 Пол: Мужской Репутация:  0   |
НУ я думаю в задаче есть какой-то предел. А писать можно так -
Код a := 1; For i := 1 to {например} 100 do a:=a*2; Можно и Repeat-Until или While-do Сообщение отредактировано: VelarThind - -------------------- http://magicrown.ru
<... image(s) deleted (Admin) ...> |
   |
 
|
Сообщений в этой теме
cxt Цикл 10.04.2005 22:13
volvo Записать-то просто, вопрос - поместится ли значени… 10.04.2005 22:30 volvo VelarThind,
типы проставь. Какого типа у тебя A? 11.04.2005 1:21 cxt Предел есть нужно узнать сколько зерен нужно чтобы… 11.04.2005 22:02 volvo cxt, тебе сюда: FAQ: Длинночисленная арифметика, п… 11.04.2005 22:13 cxt
program xxx;
uses crt;
var
a,i:integer;
begin… 13.04.2005 0:23
volvo Читай, что я писал раньше:
Решил проверить? Пр… 13.04.2005 0:44 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 7.11.2025 16:33 |
Связь с администрацией: bu_gen в домене octagram.name