zadach354.BAS

{* Задача354 *}

REM basic

' Написать программу, которая выводит первую цифру в числе, последнюю цифру в числе, сумму всех цифр числа.


INPUT "vvedite a"; a: b = a
Do
    s = s + b Mod 10
    b = b  10: k = k + 1
Loop Until b = 0
PRINT a  10 ^ (k - 1)
PRINT a Mod 10
PRINT s
End