Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
мария2020
0 / 0 / 0
Регистрация: 22.04.2012
Сообщений: 1
#1

Найти все трехзначные числа, каждое из которых в 19 раз больше суммы своих цифр - QBasic

25.04.2012, 21:31. Просмотров 1123. Ответов 2
Метки нет (Все метки)

Помогите составить программу : найти все трехзначные числа, каждое из которых в 19 раз больше суммы своих цифр.(методом перебора)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2012, 21:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти все трехзначные числа, каждое из которых в 19 раз больше суммы своих цифр (QBasic):

Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр
Здравствуйте! Решаю пачку задач на цифры в числе, с одной вот геморрой. И на...

Найти все трехзначные числа, последние три цифры квадрата которых равны им самим
Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и...

Найти все трехзначные числа, равные сумме квадрата цифры сотен и цифр десятков и единиц.
Найти все трехзначные числа, равные сумме квадрата цифры сотен и цифр десятков...

Найти все трехзначные числа,равные сумме квадрата цифры сотен и цифр десятков и единиц
Составить программу в QBasic: Найти все трехзначные числа,равные сумме...

Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр
Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме...

Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9
1. Найти все двузначные числа, сумма цифр которых не меняется при умножении...

2
softmob
1249 / 699 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
25.04.2012, 21:38 #2
Лучший ответ Сообщение было отмечено как решение

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
FOR i = 100 TO 999
    q = i
    s = 0
    WHILE q
        s = s + q MOD 10
        q = q \ 10
    WEND
    IF i = 19 * s THEN PRINT i
NEXT
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
13.06.2016, 15:48 #3
проверено

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
REM        OTBET:
REM  114; 133; 152; 171; 190
REM  209; 228; 247; 266; 285; 399
 
CLS
 
FOR x = 1 TO 9
FOR y = 0 TO 9
FOR z = 0 TO 9
   u = 100 * x + 10 * y + z
   IF u = 19 * (x + y + z) THEN
      PRINT u
   END IF
NEXT z, y, x
END
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2016, 15:48
Привет! Вот еще темы с решениями:

Найти все двузначные числа, сумма кубов цифр которых делится на 15
Найти все двузначные числа, сумма кубов цифр которых делится на 15

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи кото-рых нет одинаковых цифр
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи...

Найти все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми
Тема стара как мир судя по количеству тем на форуме, но не могу понять как...

Найдите все числа в матрице,каждое из которых встречается в каждой строке матрицы
Найдите все числа в матрице,каждое из которых встречается в каждой строке...


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

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

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