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

1
суммы одного числа не может быть
да я откуда знаю какое чило, как дали так и написала, спроси у учителя моего
вот я нашла только оно не в паскале, я не знаю как на паскаль перевести::
Программа в 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
помоги решить

Ответы и объяснения

  • Segrif
  • почетный грамотей
2013-12-21T14:46:32+00:00
Программу из комментариев переписал для паскаля.

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.