Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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