Дано трёхзначное число.Найти сумму его чисел. Например число 321: 3+2+1=6

Question

Дано трёхзначное число.Найти сумму его чисел.
Например число 321: 3+2+1=6

Comments

программу написать?

---

Да программу Паскаль.

---

на нахождение суммы его цифер?

---

Не чисел сумму, а цифр.

---

ОК

---

напишу*

---

ну я напину на обычном паскале

---

Паскаль АБС)

---

Да

---

число ведь целое?

Answer 1

Program summacifer;
var
sum,sot,des,ed,ch:integer;
begin
writeln('введите трехзначное число');
readln(ch);
sot:=ch div 100;
ed:= ch mod 10;
des:= ch mod 100;
des:= des div 10;
sum:=sot+ed+des;
writeln('сумма цифр вашего числа равна',sum);
end.

Comments

А если число например 91215 )

---

Ну ладно спс хоть за это))

---

Ок)

---

более сложная

---

для пятизначного другая программа нужна)

---

Какое)

---

дано ведь трехзначное

---

условие

---

это хорошо)

---

не за что)