Делимость числа на 7 - QBasic

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


textual

Код к задаче: «Делимость числа на 7 - QBasic»

CLS
DIM N AS LONG
INPUT "N = "; N
IF N MOD 7 = 0 THEN PRINT "YES" ELSE PRINT "NO"
END

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

8   голосов, оценка 3.875 из 5



Похожие ответы
  1. Требуется решить задачу. Являются ли числа вида 33...31 простыми? Программа выявила, что числа 31, 331, 3331, 33331, 333331, 3333331, 33333331 - простые. а вот число 333333331 - оказалось составным. А как дальше? бейсик не очень любит возиться с длинными числами...

  1. Решить в натуральных числах уравнение [x^n] + [y^n] = [x^n] n = 2.5 функция [x] эквивалентна INT(x) программа нашла 11 решений.

  1. Чтобы понять о чем идет речь я приведу частный пример. дано 5 натуральных чисел 1, 2, 3, 4, 5. составим из этих чисел следующие сочетания. Порядок строго соблюдается!! 1) 1, 2, 3, 4, 5 2) 12, 3, 4, 5 3) 1, 23, 4, 5 4) 1, 2, 34, 5 5) 1, 2, 3, 45 6) 1, 23, 45 7) 12, 3, 45 8) 12, 34, 5 Нужно составить программу, которая для произвольного числа N могла бы сосчитать число приведенных выше в качестве примера сочетаний. Алгоритм к моему удивлению алгоритм оказался прост, точно такой же (рекурсия) каким вычисляются числа Фибоначчи. то есть количество сочетаний (n)= Фибоначчи(n+1) Вопрос Как обобщить программу, чтобы она вычисляла количество любых сочетаний? то есть в нашем примере должны добавиться и такие сочетания 9) 123, 45 10) 12345 11) и так далее. Сколько их?

  1. Здравствуйте всем! У меня на руках задача, над которой вот уже какую неделю голову ломаю. Решать её надо либо на QBasic, либо на Pascal (знаю только QBasic). Условие такое: "Любое целое число большее 1 можно единственным способом представить в виде произведения простых множителей. Но если попытаться представить целые числа в виде суммы простых слагаемых, то таких разложений окажется несколько. Например, для числа 11 есть 6 таких разложений: 11=11, 11=2+2+7, 11=3+3+5, 11=3+3+5, 11=2+2+2+5, 11=2+3+3+3, 11=2+2+2+2+3. Напишите программу, которая вводит с клавиатуры натуральное число N (1

  1. Найти число, сумма делителей которого в три раза больше самого числа (Само число к делителям не относится) Программа нашла наименьшее из таких чисел - 30240 примечание Тут бейсику пришлось посчитать. Вероятнее всего он никогда не найдет числа, сумма делителей которого в 4 раза, (в 5 раз) больше самого числа...

  1. Во всех задачах Имя входного файла: input.txt Имя выходного файла: output.txt Ограничение по времени: 1 секунда Ограничение по памяти: 64 мегабайта Сумма и произведение цифр Дано четырехзначное число. Найти сумму и произведение цифр данного числа.Входные данные: Одно целое четырехзначное число N (1000≤N≤9999).Входные данные: Вывести в первой строке сумму цифр числа N, а во второй строке произведение цифр числа N. Пример: input.txt 1234 output.txt 10 24 Как написать это в программе Basic? Напишите пожалуйста

  1. Условие Даны две квадратные матрицы А() и В() размером 5×5 Он заполнены случайными числами Требуется произвести между матрицами обмен числами так, чтобы максимальное число первой матрицы не превышало минимального числа второй матрицы. Решение Вариант 1 Можно ввести еще один линейный массив и сбросить на него все элементы обоих матриц. Отсортировать этот массив и просто поделить его элементы между двумя матрицами. Примечание Не подходит из-за сортировки. Сортировки нет в условии. Вариант 2 Надо найти средний элемент. То есть такой, где число элементов больших данного было бы равно числу элементов меньших данного Вопрос. Но как найти такой элемент? Вариант 3 Тотальное сравнение элементов обоих матриц и обмен этими элементами Вопрос. Сколько должно быть сравнений? Где гарантия, что задача будет решена? Задача пока не решена. Ищется подходящий алгоритм Кто может что-нибудь подсказать?

  1. Дано уравнение x * x - y * y = 69 Требуется решить его в целых числах. решение По внешнему виду уравнения можно сказать, что знак Минус в решении можно добавить всегда, так как переменные симметричны относительно знака. И кроме того икс по модулю больше игрек. Программа нашла два натуральных решения. Можно добавить знаки минус и всего будет 8 решений.

  1. Дано уравнение 19 * x + 22 * y + 29 * z = 700 Требуется решить его в простых числах. Собственно программа решала его в натуральных числах. В простых числах оказалось всего одно решение.