<em>VAR</em>
<em> ans: Real;</em>
<em> n, i: Integer;</em>
<em>BEGIN </em>
<em> Read(n);</em>
<em> </em>
<em> For i := 1 to n do </em>
<em> ans := ans + (1 / Sqr(i));</em>
<em> </em>
<em> Write(ans);</em>
<em>END.</em>
Составим план:
1История создания
2использование человеком
3Внешнее стоение
4 Внутреннее строение
Ну и т.д.
Есть прекрасная функция, заменяющая сразу при вводе
S=input().replace('h','H')
Print(S)
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Write('*'*20)
end.
Д) 3 пер А,В,С. Порядок 3-1-2
3 столбец: 01111111, 4 ст. 01111111, 5ст 00110011
е) 3 пер, 1-3-2
А,В,С - как в д)
3 ст 00000011
4 ст 01010111
5 ст 10101000