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

Опоюределить разность между суммой четных и нечетных из отрезка от 1 до 50... Цикл с параметром Заранее спасибо
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы