Помогите сделать задачу в паскале: С пульта оператора вводится 3х значное число,...

Question

Помогите сделать задачу в паскале:
С пульта оператора вводится 3х значное число, программа должна посчитать суму цифер с которых оно состоит

Answer 1

Var sum:real;n:integer;beginrepeatwriteln('Введите трёхзначное число');readln(n);until(n<999)and(n>100)and(n>-999)or(n>-999)and(n<-100);sum:=(n div 100)+((n div 10) mod 10)+(n mod 10);writeln('Сумма чисел равна ', sum);end.<br>
При копировании всё становится в одну строку, решение на картинке

---

Comments

При вводе двузначного и однозначного проверка не рвботает.

---

не работает*

---

Исправил, замените 7 строку на это until(n<999)and(n>100)and(n>-999)or(n>-999)and(n<-100);

---

Либо "n > 99", либо "n>=100"///