|
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
|