Форум программистов, компьютерный форум, киберфорум
Наши страницы
Assembler: математика, вычисления
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Shakarik
0 / 0 / 0
Регистрация: 30.12.2014
Сообщений: 1
1

Найти числа, кратные X, на заданном интервале

30.12.2014, 09:11. Просмотров 515. Ответов 1
Метки нет (Все метки)

Найти числа от 1 до N (15<=N<=200) кратные x. Любое натуральное число, которое делится (без остатка) на данное натуральное число, называется кратным данному числу.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.12.2014, 09:11
Ответы с готовыми решениями:

Найти в интервале [100,N] все целые числа, не содержащие повторяющихся цифр
Моя идея: найти количество цифр числа, найти количество различных цифр числа....

Нахождение всех Х на заданном интервале
Нужно найти и вывести все х на экран: b/c*x^3+(x^2-c*x)/b*c^2 интервал -10,10...

Вычислить и вывести на экран значения функции F на заданном интервале с шагом dx
Здравствуйте,помогите написать программу: Вычислить и вывести на экран...

В интервале от 0 до N найти числа кратные M
Всем доброго дня , если у кого есть чуток времени и может помочь = нужна ваша...

В интервале чисел от А до В найти все числа кратные 7
Препод дал задание на джава, В интервале чисел от А до В найти все числа...

1
Mycola
23 / 13 / 47
Регистрация: 23.03.2013
Сообщений: 157
22.07.2015, 17:22 2
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
_UCharToStr macro arg1, arg2
    lea bx, arg1
    push bx
    ifnb <arg2>
        mov al, arg2
    endif
    call UCharToStr
    mov byte ptr[bx], '$'
    pop bx
endm
 
print macro arg1
    push dx
    mov ah, 09h
    lea dx, arg1
    int 21h
    mov al, ' '
    int 29h
    pop dx
endm
 
codesg segment 'code'
    assume cs:codesg, ds:codesg, ss:codesg
    org 100h
    main: jmp begin
        n_min db 15
        n_max db 200
        x db 13
        buffer db 4 dup('$')
    begin:
        mov cl, n_max
        mov al, n_min
        mov dh, al
        sub cl, al
        mov dl, x
        _while: xor ah, ah
            div dl
            or ah, 0
            jnz Next
            _UCharToStr buffer, dh
            print buffer
            Next: inc dh
            mov al, dh
        loop _while
    int 20h
    
    ;вход в al-число в bx адрес буфера куда следует писать число
    UCharToStr proc
        push dx
        push cx
        xor dx, dx
        xor cx, cx
        mov dl, 10
        __while: xor ah, ah
            div dl
            inc cx
            add ah, '0'
            push ax
            or al, 0
            jz break
        jmp __while
        break: pop ax
            mov [bx], ah
            inc bx
        loop break
        pop cx
        pop dx
        ret
    UCharToStr endp
codesg ends
    end main
Добавлено через 2 часа 0 минут
Так будет немного быстрее
Assembler
1
2
3
4
5
6
7
mov cl, n_max
        mov al, x
        shl al, 1
        sub cl, al
        mov dh, al
        mov dl, x
        _while: xor ah, ah
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.07.2015, 17:22

Найти все целые числа, кратные 3, на интервале от k до n
Помогите пожалуйста.

Найти числа кратные 11 в интервале от 12 до 100 и их произведение
Найти числа кратные 11 в интервале от 12 до 100 и их произведение. Program...

Найти натуральные числа делящихся нацело на заданные числа и находящихся в заданном интервале
Найти 20 первых натуральных чисел, делящихся нацело на 13 или на 17, и...


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

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

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