// FreePascal
var
n, k, s: integer;
a: array of integer;
function IsPrime(n: integer): boolean;
var
i: integer;
begin
if n <= 1 then
Exit(False)
else
if n <= 3 then
Exit(True)
else
if (n mod 2 = 0) or (n mod 3 = 0) then
Exit(False);
i := 5;
while (i * i) <= n do
begin
if (n mod i = 0) or (n mod (i + 2) = 0) then
Exit(False);
i := i + 6;
end;
Exit(True);
end;
begin
s := 0;
write('n = ');
readln(n);
SetLength(a, n);
for k := 0 to (n - 1) do
begin
write('a[', k, '] = ');
readln(a[k]);
if IsPrime(k) then
s := s + a[k];
end;
writeln('Ответ: ', s);
end.
Решается на обычном калькуляторе
1) 1011100010110 (если из десятиричной)
2) 4DC6 (если из десятиричной)
3) 266306 (если из восьмеричной)
1) 1112124
2) 1023144144
3) 4016
<span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на третьем месте цепочки стоит одна из бусин H, E;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на втором месте – одна из бусин D, E, C, которой нет на третьем месте;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD EDHC DEHE
</span><span>– в начале стоит одна из бусин D, H, B, которой нет на втором месте;
</span>DEHD HEHC DCEE DCHE HDHD DEHE
<span>
– в конце – одна из бусин D, E, C, не стоящая на первом месте.
</span>HEHC DCEE DCHE HDHD DEHE<span>
Ответ: 5</span>