цикл с параметром Опции

[-Юльча-]

У меня не получается решить эту задачу.Помогите кто чем может. Вот задача: найти сумму всех чисел,которые делятся на цело на 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.

;)

Сообщение отредактировано: Needhelp - 10.05.2007 20:57

[мисс_граффити]

забыл k:=0

[Needhelp]

забыл k:=0

[Гость]

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

[Needhelp]

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

Можно и не вставлять, k автомат-ки равен в начале 0)))) ... А вообще после begin...

Сообщение отредактировано: Needhelp - 10.05.2007 21:14

[-Юльча-]

Закрыть тему

[klem4]

Это типа вместо "Спасибо что помогли ибо я сама ничего не соображаю" ? Прикольно ...

Сообщение отредактировано: klem4 - 10.05.2007 21:36

[volvo]

Можно и не вставлять, k автомат-ки равен в начале 0

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

[Needhelp]

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

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

[klem4]

В данном случае можно обойтись

Почему это ?

[Needhelp]

Почему это ?

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

[klem4]

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

Именно так.

[Needhelp]

Я конечно могу ошибаться, но в Pascale не действует такое правило?!
"Если при определении начальное значение переменным не задается явным образом, то компилятор обнуляет глобальные и статические переменные. "

[Tan]

Так компиляторы у всех разные. Если бы ты спросил у создателя темы, какой у него и оттуды бы плесал, это другое дело, а так тебе надо страховать для всех, поэтому лучше обнулить.

[Needhelp]

Всем спасибо ...Признаю свою ошибку (узкоплатформенность, в предь исправлюсь=))

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 23:15