{* Задача261 *}

REM basic

' Определение кол-ва цифр в числе, суммы его цифр, последней и предпоследней цифры



CLS
10 {20 INPUT n
}30 If n = 100 Then PRINT "Кол-во цифр в числе 100 равно 3;сумма его цифр равна 1; последняя и предпоследняя цифры равны 0; первая цифра равна 1": GoTo 100
40 If n < 100 And n > 10 Then PRINT "Кол-во цифр в числе"; n; "равно 2";
50 p = INT(n / 10)
60 v = n - p * 10
70 s = p + v
80 PRINT "Сумма цифр числа"; n; "равна"; s; "предпоследняя и первая цифра числа"; n; "равна"; p; "Последняя цифра равна"; v;
90 If n < 10 Then PRINT "В числе"; n; "1 цифра"; "Сумма цифр числа,последняя и предпоследняя цифры равны"; n;
100 End