пмогите плз. с задачкой справитьсяНейромонах Феофан, балалаечник Никодим и косолапый мишка
Пмогите плз. с задачкой совладать
Нейромонах Феофан, балалаечник Никодим и косолапый мишка притаптывают поле.
Феофан в одиночку может притоптать поле за A часов, Никодим за B часов, мишка за C часов. Не считая того, им готовы подсоблять добросердечны молодцы, каждый из которых может притоптать поле за D часов.
Сколько благих молодцев нужно пригласить на помощь Феофану, Никодиму и мишке, чтобы они успели притоптать поле за N часов?
Формат ввода
На вход программе поступает 5 чисел A, B, C, D, N. Все числа вещественные, не превышают 2109.
Формат вывода
Программа обязана вывести одно целое число минимальное нужное количество благих молодцев.
Пример
Ввод
7 11 8 9 2
Вывод
2
program pole;
var a, b, c, d, n, kolvo, x, y: real;
begin
write ('За сколько часов топчет землю Нейромонах Феофан? ');
read (a);
write ('За сколько часов топчет землю Балалаечник Никодим? ');
read (b);
write ('За сколько часов топчет землю Косолапый Мишка? ');
read (c);
write ('За сколько часов топчет землю 1 Добросердечный Молодец? ');
read (d);
write ('За сколько часов необходимо выкопать землю? ');
read (n);
x:=1/a+1/b+1/c;
kolvo:=(1/n-x)/(1/d);
if (kolvolt;0) then write ('Группа справится без молодцев.') else
begin
y:=kolvo;
if (((trunc(y*10)) mod 10) lt;5) then
kolvo:=kolvo + 1;
write ('Вот столько для вас будет нужно добрых молодцев: ', round(kolvo));
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.