Вычислить 7 ^ 77 - QBasic


textual

Код к задаче: «Вычислить 7 ^ 77 - QBasic»

DIM i AS LONG, j AS LONG, l AS LONG, a(999) AS LONG, b AS LONG, c AS LONG
a(0) = 1
FOR i = 1 TO 77
    j = -1
    WHILE j < l OR c > 0
        j = j + 1
        b = a(j) * 7 + c
        a(j) = b MOD 10
        c = b \ 10
    WEND
    l = j
NEXT i
FOR i = 0 TO l
    PRINT LTRIM$(STR$(a(l - i)));
NEXT i
PRINT

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.267 из 5



Похожие ответы
  1. В качестве алгоритма используется формула N = 10A + B = 3A + B

  1. Вычислить сумму элементов массива А(а1, а2, ..., an), значения которых по модулю лежат в заданном диапазоне от b до с ( b<=ai<=c). Помогите, пожалуйста. Весь форум облазил, ничего нету подобного.

  1. Чтобы понять, что же надо сложить, определим сначала длинное число 149162536496481100 ... 10000. это квадраты натуральных чисел от 1 до 100, записанные по-порядку вплотную друг к другу. ... Условия такие 1. цифра 0 игнорируется вовсе. 2. из этого числа берутся двузначные числа слева направо 3. для каждого числа находится ему обратное и все это суммируется. пример 1491625364964811 1/14 + 1/91 + 1/62 + 1/53 + 1/64 + 1/96 + 1/48 + 1/11 + ... (надеюсь это понятно) автор надеется также на то, что никто не сумеет написать ИНОЙ ВАРИАНТ этой программы. (ну если только вы не будете считать вручную). Ответ: 10.05247

  1. Дано выражение, которое надо вычислить Это только три "этажа" дроби. А всего 7. Дробь содержит 127 синусов. От sin1 до sin127 строго по-порядку подсказка маленькие дроби имеют вид: где 1 < n < 64 Программа решает эту задачу. Ответ: 2.778758 Автор просит оценить эту задачу по семибальной шкале (код, нестандартность, сложность) Вопросы Решали ли вы что-либо подобное? Есть ли рекурсивное решение? Есть ли иное решение?

  1. Задана рекуррентная последовательность соотношениями f(n) = f(n - 1) + b(n - 1) b(n) = f(n - 1) * b(n - 1) MOD 100 + n f(1) = b(1) = 1 Надо вычислить 20 членов f(n) (косвенная рекурсия)

  1. Вычислить определённый интеграл от 0.1 до 2.2 выражение:(sqrt(1.5x+0/6)/(1.6+sqrt(0.8x^2+2)))dx.вот....

  1. Дано число 1732051. Требуется вычислить сумму 1732051 + 173205 + 17320 + 1732 + 173 + 17 + 1. Слагаемое идет в сумму при условии, что оно простое число. иными словами, прежде чем складывать надо проверить числа на простоту (1 - не является простым числом и составным тоже) Ответ: 1732241.

  1. Дано 7 чисел. 1*7; 2*6; 3*5; 4*4; 5*3; 6*2; 7*1 Между этими числами надо расставить три знака сложения и три знака вычитания так, чтобы полученная сумма была максимальной. (проверено)

  1. Решить ребус ABC * 7 = DEF У чисел цифры различны, но у них есть по одной общей цифре. (цифр 0 и 9 нет). Задача решена тотальным перебором без учета того, что второе число делится на 7. Кто предложит решение проще?