Question

вводится число от 1 до 10000. Найти сумму цифр числа: если сумма цифр равна 10, то вывести на экран сообщение "Число удовлетворяет условию задачи", иначе "Число не удовлетворяет условию задачи"

Answer 1

Var n,s : Integer;
Begin
  Readln(n);
  s:=0;
  While n>0 do
  Begin
    s:=s+(n mod 10);
    n:=n div 10;
  end;
  If s=10 then Writeln('Число удовлетворяет условию задачи')
  else Writeln('Число не удовлетворяет условию задачи');
end.