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

Определить, через сколько минут все мандарины будут почищены

09.02.2016, 21:42. Показов 1252. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В пакете X мандаринов. Алина чистит A мандаринов в минуту, а Алена чистит B мандаринов. Каждую K-ю минуту Алина отдыхает и не чистит мандарины, каждую M-ю минуту отдыхает Алёна. Требуется написать программу, которая по заданным целым числам A,K,B,M и X определяет, через сколько минут все мандарины будут почищены.
Формат входных данных: В первой строке ввода записано одно число X(1<=X<=300)-количество мандаринов. Следующие строки содержат числа A(2<=A<=10), B(2<=B<=10),K (2<=K<=10), M(2<=M<=10)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.02.2016, 21:42
Ответы с готовыми решениями:

Задано время в часа и минутах. Определить через сколько минут часовая и минутная стрелки будут образовывать угол в 90 гр
Помогите пожалуйста!!! Препод ввел 9 часов 31 минута и программа сломалась, вывела 29 минут и угол не стал 90, какое условие добавить,...

Задано время в часа и минутах. Через сколько минут часовая и минутная стрелки будут образовывать угол в 90 градусов?
6. Задано время в часа и минутах. Определить через сколько минут часовая и минутная стрелки будут образовывать угол в 90 градусов

Определить, сколько бактерий станет через 10 минут
Каждая бактерия делиться на две в течении 1 мин.В начальный момент времени имеется одна бактерия. Сколько их станет через 10 минут?

1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
10.02.2016, 11:14
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вроде так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x,a,k,b,m,s,res:integer;
begin
read(x,a,b,k,m);
s:=a+b;
res:=0;
while x>0 do
 begin
  inc(res);
  if (res mod k=0)and(res mod m<>0) then x:=x-b
  else if (res mod k<>0)and(res mod m=0) then x:=x-a
  else if (res mod k<>0)and(res mod m<>0) then x:=x-a-b;
 end;
write(res)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.02.2016, 11:14
Помогаю со студенческими работами здесь

Определить, сколько бактерий станет через n минут
каждая бактерия делится на две в течении одной минуты. В начальный момент имеется одна бактерия. Сколько их станет через n минут.

Определить, через сколько минут напряжение упадет до уровня 5в
При включении реостата в электрическую цепь напряжение плавно понижается на 15% от текущего каждую минуту. Через сколько минут напряжение...

Определить, за сколько дней все деревья в лесу будут вырублены
Всем привет ещё раз, и это уже третья задача на бинарный поиск. И в этот раз я уже преуспел в решении, осталось лишь найти ошибку ( она...

В колбе n бактерий Через сколько минут вирусы уничтожат все бактерии?
2. В колбе n бактерий. В какой–то момент времени в колбу попадает вирус. В первую минуту он уничтожает одну бактерию, после чего вирус и...

Определить, через сколько лет в бывшем лесу будут расти одни опята
Леспромхоз ведет заготовку деловой древесины. Первоначальный объем ее на территории леспромхоза составлял P кубометров. Ежегодный прирост...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru