Xxx.pptx
или
xxx.ppt
где xxx- название файла
CLS
INPUT "N = ", N
INPUT "A = ", A
S = 0
FOR i = 0 TO N
P = A
FOR j = 1 TO i
P = P * (A + j)
NEXT j
S = S + 1 / P
NEXT i
PRINT ; "S = "; S
END
В цикле от 1 до 10 вводим i-тый элемент массива. Сразу в этом же цикле проверяем два условия:
1) если i < 6 то прибавляем этот элемент к сумме1
2) если i чётное и элемент чётный прибавляем его к сумме2.
С телефона не выделяются абзацы, поэтому сори за вид.
Program zzz; Var s1, s2: integer; x: boolean;Var i: byte; Var M: array[1..10] of integer; Begin s1:=0; s2:=0; For i:=1 to 10 do begin Writeln ('введите ',i,'-е число массива'); Readln (M[i]); If i<=5 then s1:=s1+M[i]; if ((i mod 2)=0) and ((M[i] mod 2)=0)Then s2:=s2+M[i]; End; Writeln ('Сумма первых 5 элементов = ',s1);Writeln ('Сумма чётных элементов стоящих на чётных позициях = ',s2);End.
Отделяем по 3 двоичных цифры справа (триады), и пишем 8-ричный код:
1 000 001(2)=101(8);
100 000 000(2) =200(8);
11 111 111(2) =377(8);
1 100(2) =14(8).