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

Question

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

Comments

(Одновременно 5 и 8) или (либо 5, либо 8, либо и 5 и 8) ?

Answer 1

Если одновременно 5 и 8, то пишешь такую программку на Pascal

var s,i:longint;
begin
s:=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;
begin
s:=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.

Comments

ну да

---

Где-то стоит запрет на while?

---

Эти задачи придумывают люди без фантазии и в надежде, что и решать их будут такие же...

---

Да, но лично для меня осознание фора всегда было легче

---

Да и в данной задачи это особой роли не играет

---

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

---

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

---

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

---

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

---

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