Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 26.11.2012
Сообщений: 41

Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3

26.11.2012, 19:51. Показов 2237. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ввести двумерный массив А3×4 . Определить произведение элемен-тов, которые при делении на 2 дают такой же остаток как и при делении на 3.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.11.2012, 19:51
Ответы с готовыми решениями:

Вложенный цикл. Найти трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 остаток 2, при делении на 4 остаток 3
НАЙТИ С ПОМОЩЬЮ ВЛОЖЕННОГО ЦИКЛА))) найти асе трехзначные числа, которые при делении на 2 дают остаток 1,при делении на 3 остаток 2, при...

Определить количество элементов, которые при делении на 7 дают остаток 2 или 5
Задан массив Y(4,7). a. определить количество элементов, которые при делении на 7 дают остаток 2 или 5; b. подсчитать количество...

Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3.
1 задача Ввести двумерный массив A 3×4 . Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при...

1
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.11.2012, 21:24
Лучший ответ Сообщение было отмечено Tatyana123 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  uses crt;
  const n=3; m=4;
  var a: array [1..n,1..m] of integer;
      i,j,k: byte;
      p: integer;
  begin
  writeln('Введите матрицу 3х4 построчно');
  p:=1;
  for i:=1 to n do
      begin
      for j:=1 to m do
          begin
          read(a[i,j]);
          if a[i,j] mod 2=a[i,j] mod 3 then
             begin
             inc(k);
             p:=p*a[i,j];
             end;
          end;
      end;
  if k=0 then writeln('Нет таких элементов') else writeln('Произведение заданных элементов ',p);
  end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.11.2012, 21:24
Помогаю со студенческими работами здесь

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

Определить в массиве количество тех элементов, которые при делении на 3 дают остаток 2
Ввести двумерный массив A(3х4).Определить в нём количество тех элементов, которые при делении на 3 дают остаток 2.

Найти все числа, которые при делении на a дают остаток b, а при делении на b дают в остатке a
Ввести два натуральных числа a и b, на промежутке от 1 до N найти все числа, которые при делении на a дают остаток b, а при делении на b...

Найти все трехзначные числа, которые при делении на 2 дают остаток 1 и при делении на 3 остаток 2
Снова прощу о помощи . Работа в цикле. 1.Программа просит ввести любое число от 0 до 60 после чего подсчитывает сумму всех целых чисел...

Определить количество элементов массива, которые при делении на 7 дают остаток 1, 2 или 5
Дан числовой массив А, состоящий из n натуральных чисел. Определите количество элементов массива, которые при делении на 7 дают остаток 1,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru