Сколько всего яблок было в распоряжении дарившего?

@Stillwaiting · Регистрация: 27.10.2011

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

Вике дали A-ую часть яблок, Насте – B-ую часть, Лизе – C-ую часть, Кате досталась D-ая часть Ксюша получила E Яблок. Сколько всего яблок было в распоряжении дарившего?

Вывести единственное число – ответ на задачу, или –1 в случае, если входные данные противоречивы, либо же решить задачку однозначно не предоставляется возможным.

На вход получаем a,b,c,d>=100

magirus · 28.10.2011, 09:41

Комментарий модератора

Stillwaiting, прекратите кросспостинг, и прочтите правила форума

@Puporev · 28.10.2011, 12:42

Вычислить s=1/a+1/b+1/c+1/d.
Если >=1 решений нет.
Иначе Е это (1-s) часть всех яблок.

@Stillwaiting · 28.10.2011, 14:00 **[ТС]**

Сообщение от Puporev

Если >=1 решений нет.
Иначе Е это (1-s) часть всех яблок

Не совсем понял эти строчки. Можно конкретней пожалуйста

@Puporev · 28.10.2011, 14:38

Например
a=2 b=2 c=2 d=2,e=59 то
1/2+1/2+1/2+1/2>1 не может так быть
если
a=10 b=12 c=5 d=8 e=5, то
1/10+1/12+1/5+1/8=61/120, тогда е это 1-61/120=59/120 часть от целого, целое=59*120/59=120
Если не получится целое решение, данные введены не корректно.
Вроде я такое в классе 5-6 изучал...

@Stillwaiting · 28.10.2011, 14:55 **[ТС]**

Все равно ничего не получается. Вот смотрите при вводе 3 5 6 4 6 на выход должно быть 120, а у меня совсем не то.

@Puporev · 28.10.2011, 15:04

Сообщение от Stillwaiting

а у меня совсем не то.

Так ты хоть код покажи, что ты там и как считаешь...

@Stillwaiting · 28.10.2011, 15:10 **[ТС]**

Pascal
1
2
3
4
5
6
var a,b,c,d,k,e:real;
begin
 readln(a,b,c,d,e);
 k:=e / (1 - (1 / a) - (1 / b) - (1 / c) - (1 / d)); if k>=1 then writeln(-1) else
 writeln(trunc(k));
end.

Это мой код, пашет на -1, не на работает на все остальные случаи.

@Puporev · 28.10.2011, 15:37

if k>=1 then writeln(-1)//это неверно, к и должно быть больше 1, не половина же яблока была...
Дело в том что считать нужно в целых числах.
Вот что получается в дробных подробно. Ответ выводит правильный, а решение считается не правильным.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var a,b,c,d,x,k,e:real;
begin
 readln(a,b,c,d,e);
 x:=1 / a + 1 / b + 1 / c + 1 / d;
 writeln('x=',x:0:2);
 writeln('-x=',1-x:0:2);
 if k>=1 then write(-1)
 else
  begin
   k:=e/(1-x);
   writeln('k=',k:0:2);
   if frac(k)=0 then write(k)
   else write(-1)
  end;
end.

Кстати у тебя написано

Сообщение от Stillwaiting

На вход получаем a,b,c,d>=100

может <=100? а то непонятно каков порядок чисел.

Добавлено через 14 минут
Вот примерно так в целых.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a,b,c,d,e,ch,zn,x,y:longint;
begin
clrscr;
writeln('Введите a,b,c,d,e:');
readln(a,b,c,d,e);
zn:=a*b*c*d;
ch:=b*c*d+a*c*d+a*b*d+a*b*c;
if ch>=zn then
 begin
  write('Данные противоречивы');
  readln;
  exit;
 end;
x:=e*zn;
if x mod (zn-ch)<>0 then write('Данные противоречивы')
else write('k=',x div (zn-ch));
readln
end.

@Stillwaiting · 28.10.2011, 15:43 **[ТС]**

А если входные данные 8 8 0 4 20, С=0 , а на 0 делить нельзя, как можно этот случай исправить? Ответ должен быть 40 для этого теста.

@Puporev · 28.10.2011, 15:47

Так при вводе проверяй все числа, но ты так и не ответил про диапазон чисел, если они и правда больше 100, то ноль не может быть, а мой алгоритм при больших значениях тоже работать не будет.

Добавлено через 1 минуту
Вообще дал бы ссылку на оригинал, а то у вас привычка опошлять исходное задание.

@Stillwaiting · 28.10.2011, 16:14 **[ТС]**

Все числа не больше 100

Добавлено через 3 минуты
Вике дали A-ую часть яблок, Насте – B-ую часть, Лизе – C-ую часть, Кате досталась D-ая часть Ксюша получила E Яблок. Сколько всего яблок было в распоряжении дарившего?

Технические условия
Входные данные

В первой и единственной строке входных данных заданы через пробел 5 неотрицательных целых чисел: A, B, C, D и E, каждое из которых не превышает 100.

Выходные данные

Вывести единственное число – ответ на задачу, или –1 в случае, если входные данные противоречивы, либо же решить задачку однозначно не предоставляется возможным.

@Puporev · 28.10.2011, 16:28

Ну и все, делай проверку на 0 и вперед, а то >=100 думать чуть нужно.

@Stillwaiting · 28.10.2011, 16:33 **[ТС]**

Ну так, если есть ноль, то что делать нужно?

@Puporev · 28.10.2011, 16:54

Сообщение от Stillwaiting

5 неотрицательных целых чисел: A, B, C, D и E, каждое из которых не превышает 100.

Это значит что 0 может быть. Но делить на него нельзя...
Я понятия не имею что им нужно, спроси у того кто условие придумал..

Добавлено через 3 минуты
Наверное считать что если 0, то некорректные данные.

Pascal
1
2
3
4
5
6
7
readln(a,b,c,d,e);
if(a=0)or(b=0)or(c=0)or(d=0) then
 begin
  write('Данные противоречивы');
  readln;
  exit;
 end;

А вообще я не люблю эти тупые задачи про Васю и Петю с таких сайтов. Тебе нравится, вот сам и решай.

@Dzhej-Dzhej · 28.10.2011, 19:46

А по-моему нельзя кому-то дать 0 яблок.

Потому что оптимальнее всего отдать всем 0 яблок.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Решение ниже на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. Задача: реализовать. . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Stillwaiting 2 / 2 / 2 Регистрация: 27.10.2011 Сообщений: 18

	Сколько всего яблок было в распоряжении дарившего? 27.10.2011, 20:40. Показов 1278. Ответов 15 Метки нет (Все метки) Вике дали A-ую часть яблок, Насте – B-ую часть, Лизе – C-ую часть, Кате досталась D-ая часть Ксюша получила E Яблок. Сколько всего яблок было в распоряжении дарившего? Вывести единственное число – ответ на задачу, или –1 в случае, если входные данные противоречивы, либо же решить задачку однозначно не предоставляется возможным. На вход получаем a,b,c,d>=100 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.10.2011, 12:42
	Вычислить s=1/a+1/b+1/c+1/d. Если >=1 решений нет. Иначе Е это (1-s) часть всех яблок. 1

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.10.2011, 14:38
	Например a=2 b=2 c=2 d=2,e=59 то 1/2+1/2+1/2+1/2>1 не может так быть если a=10 b=12 c=5 d=8 e=5, то 1/10+1/12+1/5+1/8=61/120, тогда е это 1-61/120=59/120 часть от целого, целое=59*120/59=120 Если не получится целое решение, данные введены не корректно. Вроде я такое в классе 5-6 изучал... 1

@Stillwaiting 2 / 2 / 2 Регистрация: 27.10.2011 Сообщений: 18
	28.10.2011, 14:55 [ТС]
	Все равно ничего не получается. Вот смотрите при вводе 3 5 6 4 6 на выход должно быть 120, а у меня совсем не то. 0

@Stillwaiting 2 / 2 / 2 Регистрация: 27.10.2011 Сообщений: 18
	28.10.2011, 15:43 [ТС]
	А если входные данные 8 8 0 4 20, С=0 , а на 0 делить нельзя, как можно этот случай исправить? Ответ должен быть 40 для этого теста. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.10.2011, 15:47
	Так при вводе проверяй все числа, но ты так и не ответил про диапазон чисел, если они и правда больше 100, то ноль не может быть, а мой алгоритм при больших значениях тоже работать не будет. Добавлено через 1 минуту Вообще дал бы ссылку на оригинал, а то у вас привычка опошлять исходное задание. 0

@Stillwaiting 2 / 2 / 2 Регистрация: 27.10.2011 Сообщений: 18
	28.10.2011, 16:14 [ТС]
	Все числа не больше 100 Добавлено через 3 минуты Вике дали A-ую часть яблок, Насте – B-ую часть, Лизе – C-ую часть, Кате досталась D-ая часть Ксюша получила E Яблок. Сколько всего яблок было в распоряжении дарившего? Технические условия Входные данные В первой и единственной строке входных данных заданы через пробел 5 неотрицательных целых чисел: A, B, C, D и E, каждое из которых не превышает 100. Выходные данные Вывести единственное число – ответ на задачу, или –1 в случае, если входные данные противоречивы, либо же решить задачку однозначно не предоставляется возможным. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.10.2011, 16:28
	Ну и все, делай проверку на 0 и вперед, а то >=100 думать чуть нужно. 0

@Stillwaiting 2 / 2 / 2 Регистрация: 27.10.2011 Сообщений: 18
	28.10.2011, 16:33 [ТС]
	Ну так, если есть ноль, то что делать нужно? 0

@Dzhej-Dzhej Заблокирован
	28.10.2011, 19:46
	А по-моему нельзя кому-то дать 0 яблок. Потому что оптимальнее всего отдать всем 0 яблок. 0