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

[-Юльча-]

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

[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 19:15