составте алгоритм для вычисления суммы 100 чисел

Question

составте алгоритм для вычисления суммы 100 чисел

Comments

100 последовательных чисел (от 1 до 100)?

---

да

Answer 1

Var a,b,c:integer;
begin
for a:=1 to 100 do
begin
if a mod 2=0 then b:=b+a
else
c:=c+a;
end;
writeln(b);
write(c);
end.

Comments

всё в кучу свалил( как по другому закинуть

---

пожалуйста

---

вот всё

---

если захочешь изменить промежуток чисел ну не от 1 до 100 а допустим от 1 до 200 изменяй строку for a:=1 to 100 do

---

спасибо