Помощь - Поиск - Пользователи - Календарь
Полная версия: цикл с параметром
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-Юльча-
У меня не получается решить эту задачу.Помогите кто чем может. Вот задача: найти сумму всех чисел,которые делятся на цело на 3 в интервале 0т-10 до 15
Needhelp

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.



;)
мисс_граффити
забыл k:=0
Needhelp
Цитата(мисс_граффити @ 10.05.2007 18:02) *

забыл k:=0


give_rose.gif rolleyes.gif
Гость
А куда вставить k:=0?
Needhelp
Цитата(Гость @ 10.05.2007 18:11) *

А куда вставить k:=0?


Можно и не вставлять, k автомат-ки равен в начале 0)))) wink.gif... А вообще после begin...
-Юльча-
Закрыть тему
klem4
Это типа вместо "Спасибо что помогли ибо я сама ничего не соображаю" ? Прикольно ... dry.gif
volvo
Цитата
Можно и не вставлять, k автомат-ки равен в начале 0
Правда? Что, всегда?
Needhelp
Цитата(volvo @ 10.05.2007 18:54) *

Правда? Что, всегда?

В данном случае можно обойтись... а вообще, нет, не всегда!..(это к вопросу)
klem4
Цитата
В данном случае можно обойтись


Почему это ?
Needhelp
Цитата(klem4 @ 10.05.2007 19:21) *

Почему это ?


Намекаешь на то, что она не определена?( и может быть равна "не известно чему"=))
klem4
Цитата
Намекаешь на то, что она не определена?( и может быть равна "не известно чему"=))


Именно так.
Needhelp
Я конечно могу ошибаться, но в Pascale не действует такое правило?!
"Если при определении начальное значение переменным не задается явным образом, то компилятор обнуляет глобальные и статические переменные. "
Tan
Так компиляторы у всех разные. Если бы ты спросил у создателя темы, какой у него и оттуды бы плесал, это другое дело, а так тебе надо страховать для всех, поэтому лучше обнулить.
Needhelp
Всем спасибо smile.gif ...Признаю свою ошибку (узкоплатформенность, в предь исправлюсь=))

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.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.