Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти произведение тех элементов массива значения которых заключены в интервале [А, В] и кратны 3 или 5 Нужно сделать две программы: Дан массив X(N). 1) Найти произведение тех элементов массива значения которых заключены в интервале и кратны 3 или 5. 2) Найти найти наибольшее значение. Заменить все элементы из отрезка найденным значением. (Я новичок в Паскале, нужен образец этих двух прог без наворотов, чтобы разобраться с массивом) Добавлено через 23 минуты На первую задачу сделал сам ... https://www.cyberforum.ru/ pascal/ thread1375212.html Решение системных уравнений по схеме Крамера Pascal
Благодарю за рание ответ на вопрос. Решение можно в (Pascal или Dolphin) Решить систему из двух уравнений по схеме Крамера. Выполнить ручной просчет и убедиться , что найденное решение действительно верное x + y = 1 3x - y = -4
Pascal Посоветуйте оптимальную среду разработки под Windows Я недавно начал изучать Паскаль. Пока что пользуюсь Турбо Паскаль 7.0. Меня он удовлетворяет, но он же генерирует ДОС-приложения, и для демонстрации приходится пользоваться ДосБокс. Кто-нибудь, посоветуйте пожалуйста оптимальную среду разработки под Виндовс! Заранее спасибо! https://www.cyberforum.ru/ pascal/ thread1375186.html Pascal Найти среди четных элементов матрицы максимальный элемент Задан двумерный массив чисел. Элементы матрицы вводятся с клавиатуры. Найти среди четных элементов матрицы максимальный элемент. Помогите, пожалуйста. https://www.cyberforum.ru/ pascal/ thread1375140.html
Pascal Найти периметр четырехугольника ABCD, если известны координаты его вершин
Найти периметр четырехугольника АВСD, если известны координаты его вершин(xa,ya,xb,yb,xc,yc). Координаты вводятся с клавиатуры
Pascal Вывести не всю таблицу умножения, а только заданный столбец https://www.cyberforum.ru/ pascal/ thread1375041.html
Нужно вставить в программу ввод строки (например, 3 на 2) и чтобы программа выводила не всю таблицу, а столбец умножения (в нашем случае столбец умножения на 3). const n = 10; begin for var i:=1 to n do / begin for var j:=1 to n do write(i*j:4); //Вывод таблицы writeln; end;
Pascal Описать функцию, которая возвращает количество букв «у» в заданном слове на четных местах https://www.cyberforum.ru/ pascal/ thread1374715.html
Здравствуйте. Помогите описать функцию, которая возвращает количество букв «у» в заданном слове на четных местах.
В списке L с каждой группы подряд равных элементов оставить только один элемент Pascal
Опишите программу , которая в списке L с каждой группы подряд равных элементов оставляет только один элемент.
Pascal Блок-схема: Как сделать нумерацию блоков Здравствуйте! Подскажите, пожалуйста какая блок-схема более правильная подходит к моей программе? И подскажите, как сделать нумерацию блоков-никак не пойму.. Program laba; Uses crt; Const n=8; Type mas=array of real; Var A,B,C:mas; https://www.cyberforum.ru/ pascal/ thread1374524.html Pascal Сформировать новое множество по правилу Даны три множества X1, X2, X3, содержащие целые числа из диапазона . Сформировать новое множество Y = (X1UX2) \ (X2UX3), из которого выделить подмножество чисел, кратных 3. В общем написал программу, вроде бы все правильно, проверил несколько раз, может я ошибаюсь? Если я ошибаюсь прошу вас помочь исправить мне эту тупую и нелепую ошибку. Решил написать программу, что бы числа нужно... https://www.cyberforum.ru/ pascal/ thread1374436.html
Pascal Рассчитать итоги по суточному темпу производства продукции по детали, участку, цеху и предприятию
Массив содержит план изготовления продукции на каждый из 12 месяцев года в виде: цех, участок, деталь, план, код месяца. Взять из справочника по коду месяца информацию о количестве рабочих дней в этом месяце, рассчитать итоги по суточному темпу производства продукции по детали, участку, цеху и предприятию в целом на год.
Pascal Заменить адрес владельца телефона “651480” на улица “Пирогова”, дом “4”, квартира “17” Нужно дописать прогу . Заменить адрес владельца телефона “651480” на улица “Пирогова”, дом “4”, квартира “17”. program laba15; uses crt; const M=15; type t=record Fio:string ; ima: string; Otch: string; Ylica:string ; dom:integer; https://www.cyberforum.ru/ pascal/ thread1374338.html
89 / 78 / 62
Регистрация: 06.03.2014
Сообщений: 230
15.02.2015, 14:25 0

Определить в массиве количество тех элементов, которые при делении на 3 дают остаток 2 - Pascal - Ответ 7229975

15.02.2015, 14:25. Показов 2856. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено xersin как решение

Решение

Pascal
1
2
3
4
5
6
num:=0;
for i:=1 to 3 do
  for j:=1 to 4 do
  begin
    if (a[i,j] mod 3 = 2) then num:=num+1;
  end;


Вернуться к обсуждению:
Определить в массиве количество тех элементов, которые при делении на 3 дают остаток 2 Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.02.2015, 14:25
Готовые ответы и решения:

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

Найти сумму и количество тех элементов массива, которые при делении на 7 дают остаток 1, 2 или 5
помогите пожалуйста не могу решить 6. Даны массивы А(30), В(20), С(15) целых чисел. Найти сумму и...

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

Определить в файле среднее арифметическое тех компонент, которые при делении на 4 дают остаток 1 или 3
Ввести файл F . Определить в нём среднее арифметическое тех компонент, которые при делении на 4...

2
15.02.2015, 14:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.02.2015, 14:25
Помогаю со студенческими работами здесь

Определить количество чисел, которые при делении на 7 дают в остатке 3
Даны натуральные числа a1, a2, a3, a4. а) верно ли, что одно число положительно б) Определить...

Найти и напечатать те числа, которые при делении на 7 дают остаток 1, 2 или 5
даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают...

Найти те члены данной последовательности , которые при делении на 11 дают остаток 5 или 7
1)Дано Действительно число Х вычислить: 2/(x-1)+4(x-3)+6(x-5).....+50/(x-49) 2)Даны целые числа...

Найти все пятизначные числа, которые при делении на A дают в остатке B, а при делении на C дают в остатке D
Напишите программу, которая вводит четыре натуральных числа (a, b, c и d) и находит все пятизначные...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru