Question

Сделайте ПОЖАЛУЙСТА. Очень нужно. Заранее СПАСИБО!!!)

Answer 1

var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.

Пример:
125
s = 8

Answer 2

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln(n mod 10+n div 100+(n div 10) mod 10)
end.

Пример
n= 158
14