<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.
<u>Примеры</u>
2441
False
1991
True
<u>№2</u>
begin
var n:=int64(ReadInteger);
var s:=n.ToString;
var s2:=(n*n).ToString;
if s2.Right(s.Length)=s then Writeln('Афтоморф')
else Writeln('Не автоморф')
end.
<u>Примеры</u>
625
Афтоморф
1020
Не автоморф
Ответ:
Зажми одновременно кнопку "уменьшение громкости" и "вкл, выкл"
=IF(B3<-1;EXP(2*B3);IF(B3<1;(SIN(B3))^3;B3^3))
в ячейке В3 значение Х
извини, 3 вариант.
5 вариант
=IF(B3<1;B3;IF(B3<2;(COS(B3))^2+6;LN(B3)))
Из за области определения логарифма изменил условие
1 байт - 8бит
256/8 = 32 Байта