Удалить из матрицы все элементы, не кратные семи, но кратные трем

@Mahmud2014 · Регистрация: 31.03.2014

Author24 — интернет-сервис помощи студентам

Заданная матрица целых чисел размером (M, N). Удалить из матрицы все
элементы, не кратные семи, но кратные трем.

@Дикутенз · 02.04.2014, 13:54

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
Uses crt;
const n=10; m=10;
var a,b:array[1..m,1..n] of integer;
    i,j,bi,bj:integer;
begin clrscr; randomize;
  for i:=1 to m do
   for j:=1 to n do a[i,j]:=Random(99)+1;
 
  for i:=1 to m do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
 
  Writeln('Itog');
  bi:=1; bj:=1;
  for i:=1 to m do
   for j:=1 to n do if ((a[i,j] mod 7)<>0)and((a[i,j] mod 3)=0) then
    begin
      b[bi,bj]:=a[i,j];
      if bj=m then begin bj:=1; bi:=bi+1; end else bj:=bj+1;
    end;
 
  for i:=1 to bi do
  begin
    for j:=1 to n do if b[i,j]<>0 then write(b[i,j]:4);
    writeln;
  end;
  readln;
end.

@Puporev · 02.04.2014, 14:00

Сообщение от Mahmud2014

Удалить из матрицы все
элементы, не кратные семи, но кратные трем.

А у тебя?

@Дикутенз · 02.04.2014, 14:05

Точняк! Там отрицание сделать надо. Вот так правильно.

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
Uses crt;
const n=10; m=10;
var a,b:array[1..m,1..n] of integer;
    i,j,bi,bj:integer;
begin clrscr; randomize;
  for i:=1 to m do
   for j:=1 to n do a[i,j]:=Random(99)+1;
 
  for i:=1 to m do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
 
  Writeln('Itog');
  bi:=1; bj:=1;
  for i:=1 to m do
   for j:=1 to n do if not(((a[i,j] mod 7)=0)and((a[i,j] mod 3)=0)) then
    begin
      b[bi,bj]:=a[i,j];
      if bj=m then begin bj:=1; bi:=bi+1; end else bj:=bj+1;
    end;
 
  for i:=1 to bi do
  begin
    for j:=1 to n do if b[i,j]<>0 then write(b[i,j]:4);
    writeln;
  end;
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .

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

	Удалить из матрицы все элементы, не кратные семи, но кратные трем 02.04.2014, 12:37. Показов 987. Ответов 3 Метки нет (Все метки) Заданная матрица целых чисел размером (M, N). Удалить из матрицы все элементы, не кратные семи, но кратные трем. 0

@Puporev Почетный модератор 64307 / 47604 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	02.04.2014, 14:00
	Сообщение от Mahmud2014 Удалить из матрицы все элементы, не кратные семи, но кратные трем. А у тебя? 0

Опции темы