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

QBasic

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

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

05.01.2017, 14:54. Просмотров 99. Ответов 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
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2017, 14:54
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Квадраты чисел 66, 666, 6666, 66666, (QBasic):

Найти квадраты нечетных чисел в множестве - Basic
задано множество целых чисел, как в этом множестве найти удвоенные нечетные числа. например:дано мн-во...

Вывести на экран квадраты нечётных чисел от 1 до 99 - QBasic
Вывести на экран квадраты нечётных чисел от 1 до 99. Чет написал, а не работает. CLS FOR x = 1 TO 99 STEP 3 x = x ^ 2 PRINT x ...

Вывести на экран квадраты нечетных чисел в диапозоне от 1 до 9 - QBasic
1) Вывести на экран квадраты нечетных чисел в диапозоне от 1 до 9

Найти в строке все вхождения 666 и удалить 4 символа до и 3 после включая само 666 - Delphi
Подскажите пожалуйста! Есть строка: 01236667890555555555555555555523156661875555555555555555555 нужно найти все вхождения 666 и удалить 4...

Найти произведение натуральных логарифмов чисел от 6 до 666, которые кратны 3 или 4 - Lazarus
,Вычислите произведение натуральных логарифмов чисел от 6 до 666, которые кратны 3 или 4''

Вычислить сумму квадратов чисел от 1 до 30. Квадраты чисел предварительно записать в файл - Delphi
не умею с файлами работать, помогите пожалуйста

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
m-ch
5200 / 747 / 197
Регистрация: 25.02.2011
Сообщений: 1,025
Записей в блоге: 1
05.01.2017, 16:00 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от echs Посмотреть сообщение
Можно ли ее проверить для больших чисел?
на VBA в Excel
1
Вложения
Тип файла: xls LongNumSquare6.xls (47.5 Кб, 3 просмотров)
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
05.01.2017, 16:54  [ТС] #3
m-ch
Спасибо!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2017, 16:54
Привет! Вот еще темы с ответами:

2. Квадраты некоторых двухзначных чисел оканчиваются двумя цифрами, которые как раз и составляют исходные числа. Написать программу поиска таких чисел - Free Pascal
2. Квадраты некоторых двухзначных чисел оканчиваются двумя цифрами, которые как раз и составляют исходные числа. Написать программу поиска...

Квадраты + чисел - Pascal
Вычислить сумму квадратов положительных элементов в массиве М 16 и Б 7 и имеющих нечётных индексов Если можно то программку и на...

Вывести квадраты чисел от a до b - C++
Написать программу, которая выводит квадраты чисел от a до b . Подъем цифр квадрату выполнять в процедуре .

квадраты простых чисел - C++
Дана последовательность натуральных чисел, заканчивающаяся нулём. Выдать на экран квадраты простых чисел из этой последовательности,...


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

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

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