Задано натуральное число N (1<=N<=9999) требуется написать программу, определяющую последнюю не нулевую цифру числа N!входные данные:натуральное число N (1<=N<=9999)выходные данные: одна цифра- QBasic(Бейсик)

INPUT n
f = 1
FOR i = 1 TO n
    f = f * i
    DO WHILE f MOD 10 = 0
        f = f / 10
    LOOP
    f = f MOD 10
NEXT
PRINT f

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