10*10=100 байт. Если ваш преподаватель будет возражать, напишите, я распишу, как это объяснить.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191
1) a=29-1=19
2) 1101011(2) =1*2^6+1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+1*2^0=64+32+8+2+1=107(10)
3) 12112
Использовать Робот
алг
нач
влево
нц пока снизу свободно
периметр
мост
кц
кон
алг мост
нач
вниз
влево
нц пока снизу не свободно
если слева свободно
то
влево
все
кц
кон
алг периметр
нач
закрасить
вправо
нц пока снизу не свободно
закрасить
вправо
кц
закрасить
вниз
нц пока слева не свободно и снизу свободно
закрасить
вниз
кц
закрасить
влево
нц пока сверху свободно
закрасить
вверх
кц
нц пока сверху не свободно
закрасить
влево
кц
закрасить
вверх
закрасить
вправо
нц пока снизу не свободно
вправо
кц
вниз
нц пока слева не свободно
вниз
кц
кон
График в эксель-офис2003 во вложении