Алгоритм 21211
вычти 1: 27-1=26
раздели на 2: 26/2=13
вычти 1: 13-1=12
раздели на 2: 12/2=6
раздели на 2: 6/2=3
Ответ: 21211
- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
Ответа на вопрос не последовало. Поэтому привожу решение в пакете Maple 15 (см. вложение)
А экстремумов у этой функции нет...
Uses crt;
var a,h:longint;
b:integer;
begin
clrscr;
writeln ('Введи число');
readln (a);
h:=1;
while a>0 do
begin
b:=a mod 10;
h:=h*100+b;
a:=a div 10;
end;
a:=0;
while h>10 do
begin
b:=h mod 10;
a:=a*10+b;
h:=h div 10;
end;
writeln (a);
readln;
end.