С помощу 17 мищц челюсти и язика
XYX, где X - комбинация из 7 букв, Y 1 буква
Таких комбинаций бывает 256 шт
2^15-256 = 32512
<u>// PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
Range(ReadInteger,1,-1).Select(t->1/t).Sum.Println;
end.
<u>Пример</u>
50
4.49920533832942
Screen 12
line(20,10)-(30,20),b
line(40,10)-(50,20),b
line(60,10)-(70,20),b
line(80,10)-(90,20),b
line(100,10)-(110,20),b
line(10,20)-(20,30),b
line(30,20)-(40,30),b
line(50,20)-(60,30),b
line(70,20)-(80,30),b
line(90,20)-(100,30),b