Форум программистов, компьютерный форум CyberForum.ru

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
885 / 1080 / 348
Регистрация: 23.10.2013
Сообщений: 5,035
Записей в блоге: 5
#1

Квадраты чисел 66, 666, 6666, 66666, - QBasic

05.01.2017, 14:54. Просмотров 88. Ответов 2
Метки нет (Все метки)

У квадратов чисел, состоящих из цифр 6, просматривается
определенная закономерность. Можно ли ее проверить для
больших чисел?

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
REM
REM        66^2 = 4356
REM       666^2 = 443556
REM      6666^2 = 44435556
REM     66666^2 = 4444355556
REM    666666^2 = 444443555556
REM   6666666^2 = 44444435555556
REM  66666666^2 = 4444444355555556
REM
 
CLS
DIM x AS DOUBLE
x = 6
 
FOR i = 1 TO 7
   x = 10 * x + 6
   PRINT x ^ 2
NEXT
END
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2017, 14:54     Квадраты чисел 66, 666, 6666, 66666,
Посмотрите здесь:

Найти сумму всех нечетных чисел и количество четных чисел QBasic
QBasic Вывести на экран квадраты нечетных чисел в диапозоне от 1 до 9
QBasic Вывести на экран квадраты нечётных чисел от 1 до 99
QBasic В одномерном массиве из N натуральных чисел вычислить сумму удвоенных четных чисел
Подсчитать количество положительных четных чисел, а также сумму чисел QBasic
QBasic Определить среди чисел количество положительных чисел и найти сумму отрицательных
Заменить все отрицательные элементы на их квадраты, отсортировать по возрастанию QBasic
QBasic Нарисовать три окружности, вписанные в квадраты
Как из последовательности 20 чисел вычислить сумму нечетных чисел и определить количество четных чисел. QBasic
Как создать массив из 20 случайных чисел от -10 до 10 и найти количество чисел, равных нулю QBasic
QBasic Как сосчитать нарисованные квадраты?
Число вариантов разложения четных чисел на сумму простых чисел QBasic

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
m-ch
5151 / 730 / 193
Регистрация: 25.02.2011
Сообщений: 1,000
Записей в блоге: 1
05.01.2017, 16:00     Квадраты чисел 66, 666, 6666, 66666, #2
Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от echs Посмотреть сообщение
Можно ли ее проверить для больших чисел?
на VBA в Excel
Вложения
Тип файла: xls LongNumSquare6.xls (47.5 Кб, 3 просмотров)
echs
885 / 1080 / 348
Регистрация: 23.10.2013
Сообщений: 5,035
Записей в блоге: 5
05.01.2017, 16:54  [ТС]     Квадраты чисел 66, 666, 6666, 66666, #3
m-ch
Спасибо!!
Yandex
Объявления
05.01.2017, 16:54     Квадраты чисел 66, 666, 6666, 66666,
Ответ Создать тему
Опции темы

Текущее время: 16:14. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru