По 6 классу, не уверена, что правильно, но всё что нашла
<em>Ответ:</em>
<em>55 = </em><u><em>110111</em></u>
<em>Объяснение:</em>
<em>55 27 13 6 3 1</em>
<em> 1 1 1 0 1 1 </em>
<em>Получаем: 00110111</em>
<em>Отбрасываем незначащие нули и получаем: </em><em>110111</em>
<em>Удачи))</em>
9=1×9; 18=2×9; 27=3×9; ... 162=18×9
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
Writeln('S=',1.To(18).Select(i->1/(9*i)).Sum)
end.
<u><em>Результат</em></u>
S=0.388345342021813
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
Writeln('y=',Sin(x)+6*x+x**3)
end.
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Select(t -> Abs(t)).Max.Println
end.
<h2>n= 13</h2><h2>24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32</h2><h2>46 </h2>