Произведение N первых нечетных чисел равно k. Сколько сомножителей взято — Basic(Бейсик)

INPUT "vvedite chislo K ", k
n = 1
m = 1
DO WHILE k <> 1
m = m + 2
n = n + 1
k = k / m
IF INT(k) <> k THEN PRINT "eto chislo nevozmojno": END
LOOP
PRINT "kol-vo chisel="; n

Leave a Comment