n = 1
DO WHILE 30 * n ^ 2 - 1 > n ^ n
n = n + 1
LOOP
PRINT n - 1
Похожие записи/страницы:
- Написать программу поиска двузначных чисел таких, что если к сумме цифр этого числа прибавить квадрат этой…
- Дано целое число N(>1). Вывести наибольшее целое K, при котором выполняется неравенство 3K
- Определить целое число или нет- Basic(Бейсик)
- Вывести наибольшее целое K, при котором выполняется неравенство 3K - Basic(Бейсик)
- В числовую переменную К вводится целое число (-30000 <= К <= 30000). Определить сумму цифр - QBasic(Бейсик)
- Дано целое число. Определить оканчивается ли оно цифрой 7? - Basic(Бейсик)