Var a,b,c: integer;
Begin
write('Введите двузначное число: ');
readln (a);
b:=a div 10;
c:=a mod 10;
writeln('<span>Перевернутое число: </span>',c,b)
End.
1) 1,2,1
Так как: ((5*3)-3)*5=60
2) Сместиться на (0;0) - Но не уверен т.к. условие немного некорректное
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
function f(x:real):=3+x*(4+x*(5+x*6));
begin
var a:=-1.0;
var b:=0.0;
var eps:=1e-6;
var fa:=f(a);
var x,fx:real;
if abs(fa)<=eps then Writeln('x=',a,',y=',fa)
else begin
var fb:=f(b);
if abs(fb)<=eps then Writeln('x=',b,',y=',fb)
else
if fa*fb>0 then Writeln('На указанном интервале корней нет')
else
repeat
x:=(a + b)/2;
fx:=f(x);
if abs(fx)<=eps then Writeln('x=', x, ', y=', fx)
else
if fa*fx>0 then a:=x else b:=x;
until abs(fx)<=eps
end
end.
<u><em>Результат выполнения программы:</em></u>
x=-0.790308952331543, y=-6.74849237825015E-07
Выпишем числа Фибоначчи, не превышающие 46, в обратном порядке:
34, 21, 13, 8, 5, 3, 2, 1.
Для перевода в Фибоначчиеву систему счисления представим каждое переводимое число в виде суммы чисел Фибоначчи, а затем заменим использованные в записи числа единицами, а неиспользованные - нулями.
41=34+5+2 -> 10001010
46=34+8+3+1 -> 10010101
хз наверное поможет