Работа 3.4 Упр.3 Задание 3 ГДЗ Семакин 10 класс (Информатика)

Задача

Пример: N = 44. Числа: 17, 26, 35.

Подробный ответ

Сначала найдём сумму цифр числа $$N$$. Затем переберём все числа от $$1$$ до $$N-1$$ и для каждого вычислим сумму цифр. Если она совпадает с суммой цифр числа $$N$$, то выводим это число.

Если подходящих чисел не окажется, нужно вывести слово нет.

function Summ(n: longint): byte;
var m: longint;
  s: byte;
begin
  s := 0;
  m := n;
  while m > 0 do
  begin
    s := s + m mod 10;
    m := m div 10;
  end;
  Summ := s;
end;
var n, i: longint;
  k: byte;
begin
  readln(n);
  k := 0;
  for i := 1 to n — 1 do
    if Summ(i) = Summ(n) then
    begin
      k := 1;
      write(i, ‘ ‘);
    end;
  if k = 0 then write(‘нет’);
end.