Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5 - Turbo Pascal

Формулировка задачи:

Написать программу на зыке Pascal для обработки матриц. Размерности матрицы и ее элементы должны вводиться с клавиатуры. Полученная матрица и другие элементы должны выводиться на экран. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.

Решение задачи: «Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5»

textual
                            Листинг программы 
                        

                              mult:=0;
  p:=1; i:=m;
  while (i>0) and (a[i,jj] mod 5<>0) do begin
    p:=p*a[i,jj]; Dec(i);
  end;
  if i=0 then mult:=p;
                        

Оцени полезность:

9 голосов , оценка 3.667 из 5

Похожие ответы