Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Обнулите все отрицательные элементы массива и просчитайте количество остальных https://www.cyberforum.ru/ pascalabc/ thread536769.html
Вводится число N, а за ним N целых чисел – элементов массива. Обнулите все отрицательные элементы массива и просчитайте количество остальных. Выведите обновленный массив и информацию о количестве на экран.
Все трехзначные натуральные числа, сумма цифр которых равна М Pascal ABC
С клавиатуры вводится натуральное число М (М<27). Найдите и выведите на экран все трехзначные натуральные числа, сумма цифр которых равна М. Элементы целочисленного массива вводятся до «нуля». Найдите среднее арифметическое всех нечетных элементов целочисленного массива.
Pascal ABC Рекурсия, матрицы. определить в каждой строке матрицы количество чисел, кратных 9 задана матрица n*m. определите в каждой строке матрицы количество чисел кратных 9. в той строке, где это количество минимально, найдите НОД всех элементов. вспомогательные алгоритмы реализуйте с помощью рекурсивных процедур или функций и оформите в отдельный модуль. ввод-вывод с помощью текстовых файлов https://www.cyberforum.ru/ pascalabc/ thread536764.html Pascal ABC Удалить в тексте все лишние пробелы удалить в тексте все лишние пробелы. алгоритм удаления оформить в отдельный модуль. пробелы считаются лишними, если их подрят идёт более 2 или если они стоят после последней точки. https://www.cyberforum.ru/ pascalabc/ thread536758.html
Pascal ABC Матрица. Определить в каждом столбце двузначное число, произведение цифр которого максимально
определите в каждом столбце матрици двузначное число произведение цифр у которого максимальное. найти НОД выбранных чисел .вспомогательные алгоритм реализовать с помощью рекурсивных процедур или функций и оформить в отдельный модуль ввод-вывод из текстого файла. заранее спасибо procedure vvod (var a:mas2;var n,m:integer); var i,j:integer;f:text; begin assign...
Pascal ABC Рекурсивные алгоритмы https://www.cyberforum.ru/ pascalabc/ thread536751.html
Задана матрица размерность n*m. Определите в каждой строке матрицы число, сумма цифр у которого максимальная. Замените эти числа их факториалами. Вспомогательные алгоритмы раелизуйте с помощью рекурсивных процедур или функций и оформите в отдельный модуль. Ввод-вывод с помощью текстовых файлов. Требуется помощь!!!
Pascal ABC Рекурсивные алгоритмы. Алгоритмы с возвращением Задана матрица размерности n*m. Определите в каждом столбце матрицы максимальное и минимальное число. Возведите минимальное число в степень, равную максимальному числу. Проверьте, являются ли полученные результаты кратными 3. Вспомогательные алгоритмы реализуйте с помощью рекурсивных процедур или функций и оформите в отдельный модуль. Ввод-вывод с помощью текстовых файлов. Добавлено через 21... https://www.cyberforum.ru/ pascalabc/ thread536746.html Определите в каждой строке матрицы количество чисел кратных 3 Pascal ABC
задана матрица размерностью n*m. Определите в каждой строке матрицы количество чисел кратных 3 (используя признак делимости на 3) . В той строке, где это количество максимально, замените все элементы их факториалами. Использовать рекурсию. Оформить в отдельный модуль. Ввод вывод с текстового файла
Pascal ABC Текстовый файл. Удалить из каждой строки слова, состоящие из одного символа Подскажите как удалить из каждой строки слова, состоящие из одного символа. VAR X:TEXT; J,D,C,I:INTEGER; ST, NAME_ISH, NAME_RES, SL:STRING; BEGIN ASSIGN(X, 'ish.pas'); RESET(X); https://www.cyberforum.ru/ pascalabc/ thread536734.html Pascal ABC Двумерный массив. определить номер столбца, в котором расположен минимальный элемент четвертой строки Дан двумерный массив определить: номер столбца в котором расположен минимальный элемент четвертой строки массива. Если элементов с максимальным значением в этой строке несколько, то должен быть найден номер столбца самого левого из них номер строки в котором расположен максимальный элемент третьего столбца массива ПОМОГИТЕ ПЛИИИЗЗ https://www.cyberforum.ru/ pascalabc/ thread536728.html
Pascal ABC Найти расстояние от верхнего левого угла до правого нижнего
срочно плиз!! нужно написать программу. суть задачи в следующем: задается произвольная прямоугольная матрица размером до 20(длина) и 10(ширина). нужно найти расстояние от верхнего левого угла до правого нижнего угла. при этом можно двигаться вперед,назад,вправо и влево. по диагонали нельзя. смысл в том что бы он прошел это расстояние и собрал минимальную сумму чисел, это типа меньше всего...
Pascal ABC Заданную логическую формулу преобразоать в ДНФ https://www.cyberforum.ru/ pascalabc/ thread536577.html
128 сделать
Эксперт С++
4726 / 2547 / 757
Регистрация: 18.08.2009
Сообщений: 4,568
03.04.2012, 11:21 0

Определите день недели числа n - Pascal ABC - Ответ 2867705

03.04.2012, 11:21. Показов 2584. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
var n:integer;
begin
read(n);
writeln((n-1) mod 7 +1);
end.


Вернуться к обсуждению:
Определите день недели числа n Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2012, 11:21
Готовые ответы и решения:

По известному m — дню недели первого числа текущего месяца — определите день недели числа n.
Обозначим дни недели числами от 1 (понедельник) до 7 (воскресенье) соответственно. По известному m...

Определить день недели, на который приходится день с датой “d”, “m”.
Считая, что год не високосный и его 1 января приходится на день недели “wd1”, определить день...

Задаётся с клавиатуры день и месяц. Вывести день недели
Задаётся с клавиатуры день и месяц 2011 года. Необходимо вывести на экран, какой это день недели....

Определить в каком году день рожденья любого человека выпадет на тот же день недели, в который он родился
Всем привет. Помогите чуть доделать программу. Вообще условие задачи такое: определить в каком году...

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

Определить день недели
Уважаемые форумчане, помогите пожалуйста через пару дней экзамен а программы написать немогу. Уже...

Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало года
Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало...

День недели
Помогите пожалуйста, нужно написать прогу: вводишь число, месяц, год, а она в ответ выводит: день...

день недели
Всем hello!!! Ввести номер дня недели, вывести ему соотвецтвующий день недели с приминением...

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