Найдите наименьшее основание системы счисления, в которой запись числа 34 оканчивается на 7

299

477

Посмотреть ответы 2

Ответы на вопрос:

mamamama9

Информатика

4,5(70 оценок)

ответ:

34₁₀=37₉

объяснение:

34: 9=3 (7 остаток)

3: 9=0 (3 остаток)

Magomedrasul05555

Информатика

4,6(25 оценок)

Поставленную можно решать разными способами. можно озаботиться красотой алгоритма, можно - эффективностью выполнения программы, можно еще много чем. в связи с тем, что в настоящее время компьютеры большой вычислительной мощностью, а проста, выберем алгоритм, который имеет минимальную трудоемкость в написании и понятен внешне, хотя, быть может, в чем-то не совсем оптимален с точки зрения вычислительного процесса. речь идет об использовании встроенной функции языка паскаль - функции pos. конечно, использование функции posex, появившейся в pascal.abc, было бы эффективнее, но будем придерживаться классической версии. функция pos позволяет найти позицию первого от начала строки вхождения в эту строку подстроки. если вхождения нет - функция возвращает ноль. принимая оставшуюся после найденного вхождения часть строки за новую строку и повторяя поиск, можно найти все вхождения. не говорит, как организован ввод текста. дело в том, что в паскале строка не может содержать переход к новой строке, а текст задан двумя строками. можно организовать ввод двух строк, можно задать текст строковыми константами, можно организовать ввод из файла. считая, что смысл в поиске вхождений, принимаем способ текста несущественным и задаем текст двумя строковыми константами. это потребует выполнения алгоритма для каждой строки, следоватеьно, нам потребуется пользовательская функция, к которой мы будем обращаться. const c1='не давши слово-крепись,'; c2='а давши - держись'; cc='давши'; { искомый контекст } function kol(c,ci: string): integer; {количество вхождений ci а c } var p,k,l,li: integer; begin k: =0; li: =length(ci); l: =length(c); repeat p: =pos(ci,c); if p> 0 then begin l: =length(c); inc(k); if p+li< l then c: =copy(c,p+li,l-(p+li-1)) end until (p=0) or (p+li> =l); kol: =k end; begin writeln('количество вхождений равно ',kol(c1,cc)+kol(c2,cc)) end. вывод решения: количество вхождений равно 2