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

Question

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

---

Comments

на каком языке нужно выполнить?

---

паскаль

---

английский

---

Эх..ну тут я явно не в теме)) Может подойдет С++, или Java?

---

нет, нужно паскаль

Answer 1

// 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

Answer 2

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