Регистрация Спросить otvet5GPT
Дарья16072005
16.02.2023 09:49
Информатика
Есть ответ 👍

Сдать решение задачи D-Магические числа Ограничение времени: 1 с

Ограничение памяти: 256M

Оставшиеся посылки: 100

Магические числа

На уроках информатики Леша заинтересовался магическими числами. Это такие натуральные числа, сумма цифр которых равна самому числу.

Как-то раз в домашнем задании Леше попалась интересная задача: «Найдите количество магических чисел, меньших или равных

N

».

Так как Леша увлекается программированием, то он очень хотел бы решить данную задачу с программы, но, к сожалению, ему не хватает на это навыков Леше, написав программу, которая находит количество магических чисел, не превышающих

N

.

Формат входных данных

Первая строка входных данных содержит единственное число

N (1⩽N⩽10 в степени 9).

Формат результата

Программа должна вывести одно число — количество магических чисел, не превышающих N. ответ можете записать на любом языке (программирования)
у меня времени мало, награда

239
423
Посмотреть ответы 1

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

PISOS228XYI
PISOS228XYI
4,5(76 оценок)
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! procedure fillstack(st: stack< integer> ; sq: sequence of integer); begin   foreach var t in sq do st.push(t); end; procedure printstack(st: stack< integer> ; s: string); begin   write(s); st.println end; procedure tostack(sta,stb: stack< integer> ; even: boolean); begin   if even then       while sta.count> 0 do begin           var v: =sta.pop;           if v.iseven then begin               stb.push(v);               exit               end           end   else       while sta.count> 0 do begin           var v: =sta.pop;           if v.isodd then begin               stb.push(v);               exit               end           end end; begin   var st1: =new stack< integer> ;   fillstack(st1,seq(2,13,20,18,1));   printstack(st1,'стек1: ');   var st2: =new stack< integer> ;   fillstack(st2,seq(9,11,10,8,4));   printstack(st2,'стек2: ');   var st3: =new stack< integer> ;   while st1.count+st2.count> 0 do begin       tostack(st1,st3,true);       tostack(st2,st3,false);       end;   printstack(st3,'стек3: ')   end. результат стек1: 1 18 20 13 2 стек2: 4 8 10 11 9 стек3: 2 9 20 11 18

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS