Question

Помогите пожалуйста!Как в pascal записать сумму цифр целого числа?    Это очень срочно!И главное трехзначного числа,без сумашедших кодов на 5 страниц!

Answer 1

var
  n,s:integer;
begin
  Write('Введите 3х-значное натуральное число: '); Read(n);
  s:=(n div 100)+((n div 10) mod 10)+(n mod 10);
  Writeln('Сумма цифр числа равна ',s);
end.