Найти сумму положительных целых чисел от -50 до 200, кратных 5 и 8

Лучшая программа - короткая и наглядная программа. Тогда её и проверить проще, и ошибок меньше.

Да, только по условию задачи i меняется от -50

Верно. Но надо быть лишенным мозга, чтобы среди отрицательной части диапазона искать положительные числа.

))) Но школьнику надо объяснить почему выбран такой диапазон

Объяснит всегда полезно, согласен

Если одновременно 5 и 8, то пишешь такую программку на Pascalvar s,i:longint;begins:=0;for i:=1 to 200 do    if (i mod 5=0)and(i mod 8=0) then s:=s+i;writeln(s);end.И получаешь 600.Если либо 5, либо 8, либо и 5 и 8, то такая программаvar s,i:longint;begins:=0;for i:=1 to 200 do    if (i mod 5=0)or(i mod 8=0) then s:=s+i;writeln(s);end.В ответе 6100.