===== PascalABC.NET
begin
var s := 0.0;
for var i := 1 to ReadInteger('n =') do
s += 1 / Sqrt(i);
Println(s)
end.
Первый рисунок
1-чёрный, 0-белый.
11110111
11110001
10000101
00000001
10101111
<span>
</span>Второй
1001001
0101010
0011100
0101010
1001001
Третий
11111
10101
11111
00100
00100
1-3
2-2
3-1
жду лучший ответ)
Это эмулятор некой платформы,аля windows or linux
для которой нужен дистрибутив