В числовую переменную К вводится целое число (-30000 <= К <= 30000). Определить сумму цифр — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
DO
INPUT k
LOOP UNTIL k>=-30000 AND k<=30000
  
DO
s=s+k MOD 10
k=k\10
LOOP UNTIL k=0
PRINT s

Похожие записи/страницы: