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

@АртемийФ · Регистрация: 08.12.2015

Author24 — интернет-сервис помощи студентам

В пакете 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)

@Puporev · 10.02.2016, 11:14

Вроде так.

Pascal

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 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 10
		1
	Определить, через сколько минут все мандарины будут почищены 09.02.2016, 21:42. Показов 1112. Ответов 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

	10.02.2016, 11:14

Опции темы

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

Решение