Есть ответ 👍

по Информатике РЕДАКТОР ПИТОН
Задания на фото

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

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


ответ: не знаю

Объяснение:

ruslikua3
4,4(47 оценок)

Dim  n  as  long,  m as long,  a as  integer dim strn1 as string, lngn1 as long, i as integer randomize print  "введите число n от 0 до 1  миллиарда: "; input  n a  =  int(rnd (1)*14)  +  2  '  случайно выбираем основание  от  2  до  16 '  зашифровываем  введенное  число  со  случайным  основанием i  =  0:   strn1  = "" do  while  n >   0 m =   n mod a if  m  =  10  then       strn1 = "a" &   trim(strn1) elseif m = 11 then strn1 = "b" & trim(strn1)   elseif m = 12 then strn1 = "c" & trim(strn1) elseif m = 13 then strn1 = "d" & trim(strn1)  elseif m = 14 then strn1 = "e" & trim(strn1)  elseif m = 15 then strn1 = "f" & trim(strn1)   else        strn1 = trim(str(m)) & trim(strn1) end if n  =  int  (n / a) i =  i  +  1 loop print "число n с неизвестным основанием а: " & strn1 ' зашифровали число, теперь подбираем неизвестное основание lngn1  =  0 for a  =  2  to  16 for  i  =  1  to  len(strn1) m = val (mid (strn1,  len(strn1) - i + 1, 1)) if trim (str (m)) = "a"  then         lngn1 =  lngn1 +  10*a^(i-1) elseif trim (str (m)) = "b" then lngn1 = lngn1 + 11*a^(i-1)  elseif trim (str (m)) = "c" then lngn1 = lngn1 + 12*a^(i-1)   elseif trim (str (m)) = "d" then lngn1 = lngn1 + 13*a^(i-1)   elseif trim (str (m)) = "e" then lngn1 = lngn1 + 14*a^(i-1)   elseif trim (str (m)) = "f" then lngn1 = lngn1 + 15*a^(i-1)   else       lngn1 =  lngn1 + m*a^(i-1)  end  if next  i if  lngn1  =  n  then  exit  for next  a print  "неизвестное основание а = "  &   a end

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS