 цикл с параметром |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| -Юльча- |
 10.05.2007 16:42
Сообщение
#1
|
|
Гость  |
У меня не получается решить эту задачу.Помогите кто чем может. Вот задача: найти сумму всех чисел,которые делятся на цело на 3 в интервале 0т-10 до 15
|
 
|
|
| Needhelp |
10.05.2007 16:52
Сообщение
#2
|
 Живет здесь...  Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация:  0  |
var
i,k:Integer;
begin
for i:=-10 to 15 do
if (i mod 3)=0 then k:=k+i;
Write('Summa',k);
ReadLn;
end.
;) Сообщение отредактировано: Needhelp - 10.05.2007 16:57 |
   |
|
| мисс_граффити |
10.05.2007 17:02
Сообщение
#3
|
 просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
забыл k:=0
-------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
| Needhelp |
10.05.2007 17:04
Сообщение
#4
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Цитата(мисс_граффити @ 10.05.2007 18:02)  забыл k:=0   |
|
|
|
| Гость |
10.05.2007 17:11
Сообщение
#5
|
|
Гость |
А куда вставить k:=0?
|
|
|
|
| Needhelp |
10.05.2007 17:13
Сообщение
#6
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Цитата(Гость @ 10.05.2007 18:11) А куда вставить k:=0? Можно и не вставлять, k автомат-ки равен в начале 0))))  ... А вообще после begin...Сообщение отредактировано: Needhelp - 10.05.2007 17:14 |
|
|
|
| -Юльча- |
10.05.2007 17:33
Сообщение
#7
|
|
Гость |
Закрыть тему
|
|
|
|
| klem4 |
10.05.2007 17:36
Сообщение
#8
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Это типа вместо "Спасибо что помогли ибо я сама ничего не соображаю" ? Прикольно ...
 Сообщение отредактировано: klem4 - 10.05.2007 17:36 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| volvo |
10.05.2007 17:54
Сообщение
#9
|
|
Гость |
Цитата Можно и не вставлять, k автомат-ки равен в начале 0 Правда? Что, всегда? |
|
|
|
| Needhelp |
10.05.2007 18:20
Сообщение
#10
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Цитата(volvo @ 10.05.2007 18:54) Правда? Что, всегда? В данном случае можно обойтись... а вообще, нет, не всегда!..(это к вопросу) |
|
|
|
| klem4 |
10.05.2007 18:21
Сообщение
#11
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата В данном случае можно обойтись Почему это ? -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Needhelp |
10.05.2007 18:41
Сообщение
#12
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Цитата(klem4 @ 10.05.2007 19:21) Почему это ? Намекаешь на то, что она не определена?( и может быть равна "не известно чему"=)) |
|
|
|
| klem4 |
10.05.2007 18:50
Сообщение
#13
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Намекаешь на то, что она не определена?( и может быть равна "не известно чему"=)) Именно так. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Needhelp |
10.05.2007 18:57
Сообщение
#14
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Я конечно могу ошибаться, но в Pascale не действует такое правило?!
"Если при определении начальное значение переменным не задается явным образом, то компилятор обнуляет глобальные и статические переменные. " |
|
|
|
| Tan |
10.05.2007 19:01
Сообщение
#15
|
 Профи Группа: Пользователи Сообщений: 559 Пол: Мужской Реальное имя: Бруно Репутация: 10 |
Так компиляторы у всех разные. Если бы ты спросил у создателя темы, какой у него и оттуды бы плесал, это другое дело, а так тебе надо страховать для всех, поэтому лучше обнулить.
-------------------- Цитата Imagination is more important than knowledge. Albert Einstein |
|
|
|
| Needhelp |
10.05.2007 19:15
Сообщение
#16
|
|
Живет здесь... Группа: Пользователи Сообщений: 69 Пол: Мужской Репутация: 0 |
Всем спасибо
 ...Признаю свою ошибку (узкоплатформенность, в предь исправлюсь=))
var
i,k:Integer;
begin
k:=0;{важная доработка для создания многоплатформенности}
for i:=-10 to 15 do
if (i mod 3)=0 then k:=k+i;
Write('Summa',k);
ReadLn;
end.
Сообщение отредактировано: Needhelp - 10.05.2007 19:15 |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 24.07.2025 1:53 |