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

Посчитать количество рабочих дней

08.08.2013, 18:06. Показов 1274. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В киоске работают Инна и Нина.Каждая работает N дней подряд,а потом столько же дней отдыхает.Сегодня работает Нина.Кто будет работать через V дней
2<N<5
3<V<14
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
08.08.2013, 18:06
Ответы с готовыми решениями:

Двумерные массивы. Упорядочить номера рабочих дней в соответствии с нарастанием выпускаемой предприятием продукции
Данные о ежедневном количестве выпускаемой продукции каждым цехом некоторого предприятия в течение некоторого промежутка времени оформлены...

Дан список месяцев, дней по месяцам и количество рабочих дней: январь - 30 - 24, февраль - 28 - 22, март - 31 - 25.
Помогите пожалуйста решить задачи на Pascal, очень срочно надо . 1) Дан список месяцев, дней по месяцам и количество рабочих дней: январь...

Дан список месяцев, дней по месяцам и количество рабочих дней: январь - 30 - 24, февраль - 28 - 22, март - 31 - 25. Составить программу, которая по пе
Помогите пожалуйста решить задачи на Pascal, очень срочно надо . 1) Дан список месяцев, дней по месяцам и количество рабочих дней: январь...

2
 Аватар для Nevermore_
74 / 74 / 30
Регистрация: 22.03.2013
Сообщений: 224
08.08.2013, 18:51
Если считать день включительно ,в котором работает и Нина. То
Pascal
1
2
3
4
if v mod n=0 then
Writeline("Нина");
else
Writeline("Инна");
0
54 / 54 / 41
Регистрация: 20.12.2012
Сообщений: 256
09.08.2013, 18:45
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var v,n:integer;
begin
 while true do begin
  write('работает n дней:'); readln(n);
  write('через v дней:'); readln(v);
  if ((v+1) div n+1) mod 2=0 then
   writeln('Инна')
  else
   writeln('Нина');
 end;
end.
Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
var v,n:integer;
begin
  write('работает n дней:'); readln(n);
  write('через v дней:'); readln(v);
  if ((v+1) div n+1) mod 2=0 then
   writeln('Инна')
  else
   writeln('Нина');
  readln();
end.
Добавлено через 11 минут
Получается что выполняется вот так, чтобы не путались
Pascal
1
2
3
4
5
6
7
8
9
10
var v,n:integer;
begin
  write('работает n дней:'); readln(n);
  write('через v дней:'); readln(v);
  if (((v+1) div n)+1) mod 2=0 then
   writeln('Инна')
  else
   writeln('Нина');
  readln();
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.08.2013, 18:45
Помогаю со студенческими работами здесь

Множества.Месяц 1..30 Описать функцию число дней (m), определяющую количество дней в месяце (n) не високосного года.
Месяц 1..30 Описать функцию число дней (m), определяющую количество дней в месяце (n) не високосного года. прошу Вас программисты о помощи!

Количество дней, когда выпало самое большое количество осадков
В массиве хранится информация о количестве осадков,выпавших за каждый день октября. определить количество дней, когда выпало самое большое...

Посчитать, сколько раз в тексте встречаются сокращенные названия дней недели
Можете пожалуйста помочь сделать задачу в паскале , надо чтобы пользователь мог вписать текст в программу где встречаются ПН, ВТ, СР, ЧТ,...

Подсчитать количество рабочих в данной бригаде, работающих хуже, чем в среднем вся бригада
5)Составьте программу для решения одной из следующих задач. 5.2. Подсчитать количество рабочих в данной бригаде, работающих хуже, чем в...

Посчитать количество студентов учащихся на отделениях и вывести их количество и фамилии
Есть небольшая база данных о студентах Фамилия,Пол,Год рождения, группа. Посчитать количество студентов учащихся на отделениях и...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru