Паскаль. Найти сумму четных чисел от 15 до 100.

Question

Паскаль. Найти сумму четных чисел от 15 до 100.

Comments

добавил

---

с тобой изи 5 по информатике)

---

а не 3 или 4(

---

У меня беда с русским кстати. Мне тоже наверное помогать будешь ок?)

---

в принципе могу. по истории я спецназ, если что.

---

кстати я могу порекомендовать людей которым нужно будет помочь

---

по истории

---

не... спасибо. у меня с историей все гладко. учусь в школе с профи по информатике.

---

ржака

---

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

Answer 1

var

 i, k: integer;

begin

 k := 0;

 for i:=15 to 100 do if i mod 2 = 0 then k:=k+i;

 write(k);

end.

Answer 2

begin

 Range(15, 100).Where(el -> el.IsEven).Sum.Println;

end.