Подсчитать сумму четных, не делящихся без остатка на 8 чисел от 5 до 75.По Паскалю.Пж...

Question

Подсчитать сумму четных, не делящихся без остатка на 8 чисел от 5 до 75.По Паскалю.Пж очень надо,заранее благодарю:*

Answer 1

Var s,i:integer;
begin
for i:=5 to 75 do
if i mod 8 <> 0 then s+=i;
writeln(s);
end.

Comments

спасибооо:*

---

А можете объяснить?

---

пробегаемся в цикле от 5 до 75, если число не делится без остатка на 8, то прибавляем его к сумме

---

благодарю)