У меня не получается решить эту задачу.Помогите кто чем может. Вот задача: найти сумму всех чисел,которые делятся на цело на 3 в интервале 0т-10 до 15

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

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

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

Закрыть тему

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

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

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

Почему это ?

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

Именно так.

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

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

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

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.