DIM X, А, В AS INTEGER INPUT X А=0: В=1 WHILE Х>0 А = А+(Х MOD 10) В = B*(X MOD 10) X = X \ 10 WEND PRINT А PRINT В