Question

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

Answer 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

Answer 2

Для нахождения всех чисел, меньших заданного числа n, сумма которых равна 10, можно использовать перебор с помощью циклов. Ниже приведен пример программы на языке Pascal:

pascalCopy code
program FindNumbers;

var
  n, i, j, sum: integer;

begin
  { Введите заданное число n }
  writeln('Введите заданное число n:');
  readln(n);

  writeln('Числа, сумма которых равна 10 и меньше ', n, ':');
  
  { Внешний цикл перебора чисел от 1 до n-1 }
  for i := 1 to n - 1 do
  begin
    { Проверяем, чтобы число i было меньше половины суммы (10/2 = 5) }
    if i < 5 then
    begin
      sum := i; { Инициализируем сумму чисел значением i }

      { Внутренний цикл перебора чисел от i+1 до n }
      for j := i + 1 to n do
      begin
        { Если сумма и текущее число равны 10, выводим числа }
        if sum + j = 10 then
          writeln(i, ' и ', j);

        { Если сумма больше 10, выходим из внутреннего цикла }
        if sum + j > 10 then
          break;

        { Увеличиваем сумму на текущее число }
        sum := sum + j;
      end;
    end;
  end;
end.

Программа запросит у вас ввести заданное число n. Затем она выведет все пары чисел (i и j), сумма которых равна 10 и которые меньше заданного числа n. Помните, что данная программа может не быть оптимальной для больших значений n, так как она использует перебор и может быть неэффективной при большом количестве чисел.