0 / 0 / 0
Регистрация: 01.06.2015
Сообщений: 18
1

Определить, делится ли произведение на любой из элементов матрицы без остатка

17.10.2015, 17:33. Показов 475. Ответов 1
Метки нет (Все метки)

найти произведение элементов, расположенных на побочной диагонали и
выше её. Определить, делится ли это произведение на любой из элементов
матрицы без остатка;


Pascal
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
var m,c, n, i, j,p : integer;
s:real;
a:array[1..10,1..10]of integer;
b:array[1..10,1..10]of integer;
begin
write('Введите число строк: ');
readln(m);
write('Введите число столбцов: ');
readln(n);
for i:= 1 to m do
for j:= 1 to n do
a[i, j]:= random(51)-random(51);
writeln('** Исходная матрица **');
for i:= 1 to m do
begin
for j:= 1 to n do
write(a[i, j]:4);
writeln;
end;
p:=1;
for j:=1 to n do
for i:=1 to m-j+1 do
p:=p*a[i,j];
writeln('Произведение = ',p);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2015, 17:33
Ответы с готовыми решениями:

Определить в массиве произведение элементов чьё значение без остатка делится на 2 и не делится на 3
Уважаемые, помогите пожалуйста закончить или исправить задачу: 1. Ввести одн. массив A из N...

Определить в массиве произведение элементов, чье значение без остатка делится на 2 и не делится на 3
Ввести одномерный массив A из 13 элементов. Определить в нём произведение элементов чье значение...

Найти все целые числа b, для которых а делится без остатка на b^2 и не делится без остатка на b^3
Пользователь вводит любое целое число а. Необходимо вывести все целые числа b , для которых а...

Вывести все целые числа В, для которых А делится без остатка на В*В и не делится без остатка на В*В*В
Кто может решите пожалуйста задачу с помощью циклов. Задание 4: Пользователь вводит любое целое...

1
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
17.10.2015, 17:46 2
Pascal
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
var n,i,j,p,k : integer;
    a:array[1..10,1..10]of integer;
begin
write('Введите размер матрицы n=');
readln(n);
for i:= 1 to n do
for j:= 1 to n do
a[i, j]:= random(51)-random(51);
writeln('** Исходная матрица **');
p:=1;
for i:= 1 to n do
 begin
  for j:= 1 to n do
   begin
    a[i,j]:=1+random(5);
    write(a[i,j]:4);
    if j<=n-i+1 then p:=p*a[i,j];
   end;
  writeln;
 end;
writeln('Произведение на побочной диагонали и выше ее=',p);
k:=0;
i:=1;
while(i<=n)and(k=0) do
 begin
  j:=1;
  while(j<=n)and(k=0)do
  if p mod a[i,j]<>0 then k:=1
  else inc(j);
  if k=0 then inc(i);
 end;
if k=0 then write('Произведение делится нацело на все элементы матрицы')
else write('Произведение не делится нацело на все элементы матрицы')
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2015, 17:46

Как определить, делится ли число на «3» без остатка, не используя деления и определения остатка от деления
Написать подпрограмму, которая определяет, делится ли число на «3» без остатка, не используя...

Определить, делится ли число на 4 без остатка
Дано натуральное число N. Если оно делится на 4, вывести на экран ответ N=4k (где k —...

Определить делится ли число на 3 и 5 без остатка
Вводится число. Определить делится ли число на 3 и 5 без остатка. Вывести результат.

Определить, делится ли число на 5 без остатка
Проверить делится ли целое число x на 5 без остатка. uses crt; var a:integer; begin clrscr;...


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

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

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