Выписать в тетрадь и выучить
1
|
Вычислить сумму чисел от -8 до 8
|
S:=0; for i:=-8 to 8 do S:=S+i;
|
2
|
Вычисл произвед чисел от -8до 8
|
p:=1; for i:=-8 to 8 do p:=p*i;
|
3
|
Вычисл суммы четных чис от -8 до 8
|
S:=0; for i:=-8
to 8 do if i mod 2 =0 then S:=S+i;
|
4
|
Вычисл суммы нечетных чис от -8 до 8
|
S:=0; for i:=-8
to 8 do if i mod 2 =1 then S:=S+i;
|
5
|
Вычисл произвед четных чис от -8 до 8
|
p:=1; for
i:=-8 to 8 do if i mod 2 =0 then
p:=p*i;
|
6
|
Вычисл произвед кратных 3
чис от -8 до 8
|
p:=1; for
i:=-8 to 8 do if i mod 3 =0 then
p:=p* i;
|
7
|
Вычисл суммы чис
кратных 5 от -8 до 8
|
for i :=-8 to 8 do if i mod 5 = 0 then S:=S+i;
|
8
|
Выч суммы четных чисел и отдельно
нечетных от -8 до 8
|
for i:=-8 to 8 do if i mod 2 = 0 then S1:=S1+i else S2:=S2+i;
|
9
|
Выч суммы чисел кратных 7 и отдельно нечетных от -8 до 8
|
for i:=-8 to 8 do if i mod 7 = 0 then S1:=S1+i
for i:=-8 to 8 do if i mod 2 = 1 then S2:=S2+i;
|