// 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
Можно конечно поизвращаться и придумать интересный алгоритм, но можно просто написать в лоб цикл с проверкой.
#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
Оформи подписку