Дана последовательность целых чисел, вывести на экран номера всех элементов которые не делятся на 7 - Pascal
Формулировка задачи:
Решить используя одномерный массив а затем двумерный
Решение задачи: «Дана последовательность целых чисел, вывести на экран номера всех элементов которые не делятся на 7»
textual
Листинг программы
if a[i,j] mod 7 <>0 then write(i,', ',j,' ');
Объяснение кода листинга программы
a[i,j]: двумерный массив, гдеi- номер строки,j- номер столбца.mod 7: оператор вычисления остатка от деления на 7.write(i,', ',j,' '): вывод на экран номера строкиiи номер столбцаj, если значение элемента массива a[i,j] не делится на 7.