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