Дано натуральное число. Верно ли, что сумма его цифр больше 10? Pascal

Да. Нужно посчитать сумму цифр числа и проверить, превышает ли она 10. Алгоритм простой: пока число не равно нулю, добавляем к сумме последнюю цифру (остаток от деления на 10) и отбрасываем эту цифру (целочисленное деление на 10). Затем сравниваем сумму с 10.

Ниже рабочий пример на Pascal (подойдёт для Free Pascal/Delphi). Он читает натуральное число и выводит YES, если сумма его цифр больше 10, иначе — NO.

pascal
Копировать код
program SumDigitsGT10;
var
  n, x, s: longint;
begin
  readln(n);        { предполагается, что n >= 1 }
  x := n;
  s := 0;
  while x > 0 do
  begin
    s := s + (x mod 10);
    x := x div 10;
  end;
  if s > 10 then
    writeln('YES')
  else
    writeln('NO');
end.

Пример:

• Ввод: 19 → сумма цифр 1+9=10 → вывод NO.

• Ввод: 583 → сумма цифр 5+8+3=16 → вывод YES.