zadach418.BAS

{* Задача418 *}

REM basic

' Дано целое число а. Определите количество цифр этого числа.


INPUT n
Do
s=s+a Mod 10
a=a10
Loop Until a=0
PRINT s 
End