Var a,a1,a2,a3,a4,a5,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 10000;
a2:=a div 1000 mod 10;
a3:=a div 100 mod 10;
a4:=a mod 100 div 10;
a5:=a mod 10;
b:=a5*10000+a4*1000+a3*100+a2*10+a1;
writeln('b = ',b);
end.
Пример:
a = 13524
b = 42531
Потому что не профисиона эго делал
Ответ:
а) 12211
б) 22211
Объяснение:
чтобы легче найти ответ на такие типы, нужно начинать с конца, то есть для варианта а) с 16, самая "сильная" операция здесь умножение на 3, чтобы получить 1, нужно как можно чаще делать это действие, и так как мы начинаем с конца, мы заменяем действия на обратные, то есть на деление и сложение соответственно, 16 не делится на 3, значит прибавляем 1 до тех пор, пока число не станет на него делится
такое число 18 делим его на 3 получаем 6, видим, что опять можно применить самую "сильную операцию", делим 3 получаем 2
ну и тут, не трудно догадаться, что надо прибавить один:)
и так как мы делали операции с конца
в ответ тоже надо записывать эти операции с конца
12211
аналогично действуем со 2
3 + 2*8 + 1*8^2 = 3 + 16 + 64 = 83