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;
|