Напишите программу на языке программирования (или составьте алгоритм). Дано натуральное число n. Определите, сколько раз цифра «7» встречается в записи данного числа — QBasic(Бейсик)

INPUT n
DO
    a = n MOD 10
    IF a = 7 THEN k = k + 1
    n = n \ 10
LOOP UNTIL n = 0
PRINT k

Тестирование выполнено в программе QB64 ( Скачать )