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.

При копировании всё становится в одну строку, решение на картинке

Answer 2

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

Answer 3

не работает*

Answer 4

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

Answer 5

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