Возникновение 8-ной системы связывают с такой техникой счета на пальцах, когда считались не пальцы, а промежутки между ними (их всего восемь).
В 1716 году король Швеции Карл XII предложил известному шведскому философу Эмануэлю Сведенборгу разработать числовую систему, основанную на 64 вместо 10. Однако Сведенборг считал, что для людей с меньшим интеллектом, чем король, оперировать такой системой счисления будет слишком трудно и предложил в качестве основания число 8. Система была разработана, но смерть Карла XII в 1718 году помешала ввести ее как общепринятую, данная работа Сведенборга не опубликована.
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
while i < 7 do
begin
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
end;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
i := 0;
s := 0;
repeat
if (n mod 2 = 1) then begin
s := s + n;
i := i + 1;
end;
n := n + 1;
until i >= 7;
writeln(s);
end.
var
i, n, s: integer;
begin
readln(n);
n := n + (n + 1) mod 2;
s := 0;
for i := 1 to 7 do
begin
s := s + n;
writeln(n);
n := n + 2;
end;
writeln(s);
end.