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

disel
1
2
3
4
5
6
7
8
9
10
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