Задание на 7 декабря и для 8б 9 декабря

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