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

Мандарины. Остатки от делений.

13.01.2012, 17:49. Показов 1411. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На праздник 8 марта ребята решили сделать подарки девушкам. Готовя подарки, они разложили в каждый подарок по открытке и по мягкой игрушке. А когда начали раскладывать мандарины, то возникло осложнение. Сначала они разложили мандарины по m штук в каждый пакет (в другие пакеты - яблоки), оказалось, что в одном из пакетов m - 1 мандарин, когда положили по m - 1 мандарин, осталось m - 2, попытались положить по m - 2 мандарин , осталось m - 3, и т.д., когда попытались положить по 2 мандарина, то остался 1 мандарин. Какую же количество мандарин закупили ребята?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program new;
uses crt;
var
m,n,i:integer;
begin
clrscr;
read(m);
for i:=1 to 1000 do begin
if (i mod m=m-1) and  (i mod m-1=m-2) and  ((i mod m-2)=m-3) and  (i mod 2<>0) and (i>m) then  begin
writeln(i); break; end;
end;
 
readkey;
end.
набросал что то, накажется набросал бред, может условие не так понял, буду благодарен за помощь

Добавлено через 18 часов 39 минут
есть идеи?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.01.2012, 17:49
Ответы с готовыми решениями:

Сделать так, чтобы конечные остатки из одной строки попадали в начальные остатки в другой строке
Добрый день! Пытаюсь своими силами сделать БД.Остатки вроде считает,но хотелось бы чтобы это выглядело так,чтобы данные из поля...

Определить, через сколько минут все мандарины будут почищены
В пакете X мандаринов. Алина чистит A мандаринов в минуту, а Алена чистит B мандаринов. Каждую K-ю минуту Алина отдыхает и не чистит...

Имеется перечень товаров на оптовой базе фруктов: бананы, апельсины, мандарины, ананас, яблоки, груши.
Имеется перечень товаров на оптовой базе фруктов: бананы, апельсины, мандарины, ананас, яблоки, груши . Известны виды товаров, которыми...

4
 Аватар для chealbert
257 / 143 / 85
Регистрация: 13.10.2011
Сообщений: 454
13.01.2012, 17:57
Цитата Сообщение от Faradey27 Посмотреть сообщение
по m штук в каждый пакет (в другие пакеты - яблоки)
Как это? Какие яблоки? Если в КАЖДОМ мандарины, то откуда ДРУГИЕ пакеты?
0
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
13.01.2012, 19:33
Мне кажется условие не полное, в таком виде задача имеет множество решений, самое тривиальное из них х=3.
0
0 / 0 / 1
Регистрация: 14.11.2010
Сообщений: 44
13.01.2012, 23:07  [ТС]
условие вроде правильное, как в книжке
0
Почетный модератор
 Аватар для Puporev
64319 / 47615 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
14.01.2012, 10:21
Все нормально, просто не дошло сразу.
Вот плохонький алгоритм, при m>14-16 уже сильно тормозит.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var m,n,i,k:longint;
    f:boolean;
begin
clrscr;
write('m=');
readln(m);
n:=1;
f:=false;
while not f do
 begin
  k:=0;
  for i:=2 to m do
  if n mod i=i-1 then k:=k+1;
  if k=m-1 then f:=true
  else n:=n+2;{только нечетные}
 end;
write('n=',n);
readln
end.
Добавлено через 10 минут
Думаю больше-то мандаринов в подарки и не положить...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.01.2012, 10:21
Помогаю со студенческими работами здесь

ProgressBar: изменение делений
Доброго времени суток! В моей программе вначале стоит ProgressBar, но он нужен только для красоты, то есть программа в это время не...

График.Шкала делений
Всем привет!!! Есть программа с графиком, но без шкалы делений. Второй день мучаюсь - ни как не получается правильно ее нанести. uses...

TrackBar с подписанными значениями делений
Здравствуйте, уважаемые форумчане! Возникла необходимость подправиль интерфейс в проекте на C# Windows Forms, а я с ним знаком весьма...

Поделить окружность на 360 делений
Имеется окружность g.DrawEllipse(pen1, 5, 5, PictureBox1.Width - 10, PictureBox1.Height - 10) Необходимо нанести черточки (деления) по...

Матрица.Ошибка при делений.
Здраствуйте! У меня тут ошибка в коде, не подскажите где. Сама задача такова: Дано натуральное число n. Получить действительную матрицу...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Валидация и контроль данных табличной части документа перед записью
Maks 22.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru