19Otlichnik19
11.12.2021 20:04

1мен 7 аралығында сандарға сәйкес сахна түсін кемпірқосақ түсіне өзгертетін жоба құрыңдар (мысалы, 1-кы-зыл 15 ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
memasov
20.07.2020 05:31
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  var a:=MatrFill(m,n,0);
  for var i:=0 to m-1 do
    for var j:=0 to n-1 do Read(a[i,j]);
  Writeln('В 5-й строке число 13 встречено в колонке ',
    a.Row(4).IndexOf(13)+1)
end.

Пример
Количество строк в массиве: 7
Количество столбцов в массиве: 8
-4 10 -6 19 -3 -6 18 -9
16 12 18 8 14 11 4 10
-10 -4 -7 13 11 -4 4 -2
-6 1 11 8 1 11 7 8
18 6 14 -7 -8 13 5 13
-1 6 14 8 -5 11 -2 -5
20 16 7 -4 6 5 20 -10
В 5-й строке число 13 встречено в колонке 6
0,0(0 оценок)
Ответ:
Xro8
17.01.2020 17:51
Можно конечно поизвращаться и придумать интересный алгоритм, но можно просто написать в лоб цикл с проверкой.

#include <iostream>
int main(){
    int num_1, num_2;
    cin >> num_1 >> num_2;
    for (int i = num_1 + 1; i != num_2; i++) {
        int cur = i, num = i;
        int res = 0;
        while (cur != 0) {
            int mod_n = cur % 10;
            if (mod_n == 0) {
                break;
            }
            if (num % mod_n == 0) {
                res = 1;
            }
            else {
                res = 0;
                break;
            }
            cur /= 10;
        }
        if (res) {
            cout << i << ' ';
        }
    }
}

Коротко, в двух словах, о чем тут код. 
мы проходим по циклу от A до B, для каждого числа, в цикле проверяем, делится ли оно на цифры из которых состоит. Для этого мы запоминаем в отдельную переменную cur наше число, и проверяем остаток от деления на 10 (т.е. самую левую цифру), после мы в cur записываем тоже число, но без последней цифры.
на примере 124. проверяем на делимость на 4, потом запоминаем 12, проверяем на делимость на 2, потом запоминаем 1, проверяем на делимость на 1, потом записываем 0. Как только видим 0 прекращаем. 
Дальше в цикле есть проверка на то, что если хоть раз что-то не поделилось, то переходим к след. числу
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота