Найти сумму целого числа больше 5 в Паскале. Помогите пожалуйста!! Заранее спасибо))

Question

Найти сумму целого числа больше 5 в Паскале. Помогите пожалуйста!! Заранее спасибо))

Comments

Сумму одного числа?

---

да, наверно

---

Ты хоть понимаешь как это звучит?

---

незнаю, мне учительница дала я написала как есть

---

суммы одного числа не может быть

---

да я откуда знаю какое чило, как дали так и написала, спроси у учителя моего

---

вот я нашла только оно не в паскале, я не знаю как на паскаль перевести::

---

Программа в QBASIC: DIM x AS LONG, s AS INTEGER INPUT "Введите число: ", x x = ABS(x) s = 0 DO WHILE x > 0 IF x MOD 10 > 5 THEN s = s + x MOD 10 END IF x = x \ 10 LOOP PRINT "Сумма цифр, больших 5 ="; s END

---

помоги решить

Answer 1

Программу из комментариев переписал для паскаля.

var x,s:integer;
begin
read(x);
x:=abs(x);
s:=0;
while x>0 do begin
if x mod 10>5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
end.