|
zadach352.BAS |
|
{* Задача352 *}REM basic ' Дано десятичное число K. Найти минимальное основание P системы счисления, в которой исходное число оканчивается (будет младшей) цифрой M. (Например, К=179, M=7, P=43).CLS
DEFINT A-Z
INPUT "Vvedite chislo : ", K
INPUT "Vvedite okonchаnye : ", M
P = 1
5 P = P + 1: If K Mod P M GoTo 5
PRINT "P ="; P
End
|