• 
  • 15 January 2021
  Информатика
  • Автор: 234242498iushfiauhsf

  

  Паскаль. Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых СУММА ВСЕХ ЦИФР совпадает с СУММОЙ цифр данного числа. Если таких чисел нет, то вывести слово "нет".
  Пример: N = 44. Числа: 17, 26, 35.

• 
  • 15 January 2021
  • Ответ оставил: iolandavalerypad353

  function SumDigit(n: integer): integer;

  begin

   result := 0;

   var s := n.ToString;

   for var i := 1 to s.length do

     result += s[i].ToDigit;

  end;

  begin

   var n := ReadInteger();

   var SumN := SumDigit(n);

   var found := False;

   for var i := 1 to n - 1 do

     if SumDigit(i) = SumN then

     begin

       Print(i);

       found := True

     end;

   if not found then Print('нет')

  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (22.08.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы