Опоюределить разность между суммой четных и нечетных из отрезка от 1 до 50...
Цикл с параметром
Заранее спасибо
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
А все спасибо
Ответ дал:
0
Переменная целого типа.. Как и Sn, как и A
Ответ дал:
0
Вывести n значков *
Похожие вопросы
2 года назад
2 года назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад