Опоюределить разность между суммой четных и нечетных из отрезка от 1 до 50...Цикл с...

Question

Опоюределить разность между суммой четных и нечетных из отрезка от 1 до 50...
Цикл с параметром
Заранее спасибо

Comments

Паскаль?

---

Да

---

Помоги пожалуйста

Answer 1

Var A,Sc,Sn:integer;
Begin
Sc:=0;
Sn:=0;
For A:= 1 to 50 do
   if A mod 2 = 0 then Sc:=Sc+A
   else Sn:=Sn+A;
WriteLn(Sc-sN)
End.

Comments

Что такое Sc Спасибо

---

А все спасибо

---

Переменная целого типа.. Как и Sn, как и A

---

Спасибо большое

---

Еще можешь 1 решить??

---

Вывести n значков *