Наверное Фрактальная графика
<span>артефакт,инстинкт,антарцит,оригинал</span>
Запишем представление восьмеричного числа в двоичной системе, группируя двоичные разряда по три (два в третьей степени равно 8)
111 100 000 000(2) = 7400(8).
Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>