Запишите десятичное число 6406 в системе счисления с основанием 9

8000 8000 8000 8000 8000 точнее 8707

6406=8707₉

Схема 1)количество монет в куче равно 1? 1a) да, то это фальшивая монета выход 1b) нет перейти к 2 2) разделим кучу поровну. перейти к 3 3)правая куча тяжелее левой? 3a) да, отложить правую и вернуться в (1) 3b) да, отложить левую и вернуться в (1) можно еще добавить условия в случае если ее там нет -1) разделим кучу на две поровну. перейти к 0 0) кучи равны? 0а) да, выход нет фальшивой маеты 0b)нет, перейти к 3 1)количество монет в куче равно 1? 1a) да, то это фальшивая монета выход 1b) нет перейти к 2 2) разделим кучу на две поровну. перейти к 3 3)правая куча тяжелее левой? 3a) да, отложить правую и вернуться в (1) 3b) да, отложить левую и вернуться в (1)  все гениальное просто: )

1. программа в одной из современных версий паскаля: // pascalabc.net 3.1, сборка 1211 от 31.03.2016 begin   var s: =readlnstring('исходная строка: ');   writeln('результат: ',s.matchvalues('[a-za-zа-яа-яёё]').joinintostring('')); end. тестовое решение: исходная строка: // pascalabc.net 3.1, сборка 1211 от 31.03.2016 результат: pascalabcnetсборкаот 2. программа в "школьной версии" // pascalabc.net 3.1, сборка 1211 от 31.03.2016 const   legal=['a'..'z','a'..'z','а'..'я','а'..'я','ё','ё']; var   s: string;   i: integer; begin   write('исходная строка: '); readln(s);   for i: =length(s) downto 1 do       if not(s[i] in legal) then delete(s,i,1);   writeln('результат: ',s); end.