Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ цикл с параметром
Автор: -Юльча- 10.05.2007 20:42
У меня не получается решить эту задачу.Помогите кто чем может. Вот задача: найти сумму всех чисел,которые делятся на цело на 3 в интервале 0т-10 до 15
Автор: Needhelp 10.05.2007 20:52
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.
;)
Автор: мисс_граффити 10.05.2007 21:02
забыл k:=0
Автор: Needhelp 10.05.2007 21:04
забыл k:=0
Автор: Гость 10.05.2007 21:11
А куда вставить k:=0?
Автор: Needhelp 10.05.2007 21:13
А куда вставить k:=0?
Можно и не вставлять, k автомат-ки равен в начале 0))))
... А вообще после begin...
Автор: -Юльча- 10.05.2007 21:33
Закрыть тему
Автор: klem4 10.05.2007 21:36
Это типа вместо "Спасибо что помогли ибо я сама ничего не соображаю" ? Прикольно ... 
Автор: volvo 10.05.2007 21:54
Автор: Needhelp 10.05.2007 22:20
Правда? Что, всегда?
В данном случае можно обойтись... а вообще, нет, не всегда!..(это к вопросу)
Автор: klem4 10.05.2007 22:21
Почему это ?
Автор: Needhelp 10.05.2007 22:41
Почему это ?
Намекаешь на то, что она не определена?( и может быть равна "не известно чему"=))
Автор: klem4 10.05.2007 22:50
Именно так.
Автор: Needhelp 10.05.2007 22:57
Я конечно могу ошибаться, но в Pascale не действует такое правило?!
"Если при определении начальное значение переменным не задается явным образом, то компилятор обнуляет глобальные и статические переменные. "
Автор: Tan 10.05.2007 23:01
Так компиляторы у всех разные. Если бы ты спросил у создателя темы, какой у него и оттуды бы плесал, это другое дело, а так тебе надо страховать для всех, поэтому лучше обнулить.
Автор: Needhelp 10.05.2007 23:15
Всем спасибо 
...Признаю свою ошибку (узкоплатформенность, в предь исправлюсь=))
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.