zadach353.BAS

{* Задача353 *}

REM basic

' Дано натуральное число,определить сумму m его последних цифр


INPUT "a,m"; a, m
Do
    s = s + (a Mod 10)
    a = a  10
    m = m - 1
Loop Until m = 0 Or a = 0
PRINT s
End