1 2 3 4 5 6 7 8 | input n do s=s+n mod 10 n=n\ 10 k=k+ 1 loop until n= 0 print k print s |
1 2 3 4 5 6 7 8 9 10 | CLS DEFDBL A-Z INPUT "vvedite n"; b DO k = k + 1 s = s + (b MOD 10 ) b = b \ 10 LOOP UNTIL b = 0 PRINT "summa:"; s PRINT "kollichestvo cifr:"; k |
Тестирование выполнено в программе QB64 ( Скачать )