1 2 3 4 5 6 7 8 9 10 | 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 ( Скачать )
1 2 3 4 5 6 7 8 9 10 | 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 ( Скачать )