Найти предпоследнюю цифру числа - QBasic

Формулировка задачи:

1) В предположении, что N>10, найти предпоследнюю цифру числа N. 2)Получить в верхней части экрана нарастающую горизонтальную движущуюся полоску синего цвета на белом фоне, используя символ псевдографики типа (тут пробел) и пустой цикл для создания паузы.(тут вертикальный Прямоугольник.)

Решение задачи: «Найти предпоследнюю цифру числа»

textual
                            Листинг программы 
                        

                            REM KONTROLNAYA 1
 
CLS
DIM i AS INTEGER
                    
FOR i = 1 TO 23
   LOCATE i, 20
   COLOR 12
   PRINT STRING$(40, CHR$(219))
   SLEEP 1
   COLOR 0
   LOCATE i, 20
   PRINT STRING$(40, CHR$(219))
NEXT i
COLOR 15
END
                        

Оцени полезность:

8 голосов , оценка 4 из 5

Похожие ответы