profile
Опубликовано 5 лет назад по предмету Информатика от dashulyakuzneczova00

Найти все числа,меньшие заданного числа n, сумма чисел которых равна 10. Пожалуйста,помогите, программа Паскаль.

  1. Ответ
    Ответ дан Аккаунт удален

    PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

    Внимание! Если программа не работает, обновите версию!

    function СуммаЦифр(Число: integer): integer;

    begin

     Result := 0;

     while Число > 0 do

     begin

       Result += Число mod 10;

       Число := Число div 10

     end

    end;


    begin

     for var ОчередноеЧисло := 1 to ReadInteger('n=') do

       if СуммаЦифр(ОчередноеЧисло) = 10 then Print(ОчередноеЧисло)

    end.

    n= 300

    19 28 37 46 55 64 73 82 91 109 118 127 136 145 154 163 172 181 190 208 217 226 235 244 253 262 271 280

Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.