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

TheSiDo TheSiDo    3   25.08.2019 01:10    0

Ответы
imputedchimi imputedchimi  05.10.2020 17:44
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика