Раз последняя цифра равна нулю, то 30 без остатка делится на N.
Делители числа 30: 30, 10, 15, 5, 3, 2, 1.
Всё, что больше 10, и 10 можно сразу отбросить.
30 / 5 = 6 (0)
6 / 5 = 1 (1)
30_10 = 116_5 - не подходит, т.к. 3 цифры
30 / 3 = 10 (0)
10 / 2 = 5 (0)
5 / 2 = 2 (1)
30_10 = 2100_3 - подходит
Ответ: 3.
Одурелось о и о так новерно
DIM A%
CLS
OPEN "ABC.txt" FOR INPUT AS #1
INPUT #1, A
PRINT "Pervoe = ", A
WHILE NOT (EOF(1))
INPUT #1, A
WEND
PRINT "Poslednee = ", A
CLOSE #1
END
Примечание: файл ABC.txt должен лежать в одной папке с программой.
SUB CNM (N, M, C)
C = 1
FOR i = M-N+1 TO M
C = C*i
NEXT i
FOR i = 1 TO N
C = C/i
NEXT i
END SUB
CLS
DIM C&, N%, M%
N = 3
M = 10
CALL CNM(N, M, C)
PRINT C
END
Все зависит от версии языка Паскаль (см. вложения).
StrToInt определено только в PascalABC.NET, его предшественнике, "умершем" 10 лет назад - Pascal ABC и в Borland Delphi - также давно (с 2008 года) закрытом проекте корпорации Borland Inc.
Вы не указали язык программирования, поэтому ответ выбирайте по вложениям.