Пмогите плз. с задачкой справиться Нейромонах Феофан, балалаечник Никодим и косолапый...

Question

62 просмотров

Пмогите плз. с задачкой справиться Нейромонах Феофан, балалаечник Никодим и косолапый мишка притаптывают поле. Феофан в одиночку может притоптать поле за A часов, Никодим – за B часов, мишка – за C часов. Кроме того, им готовы помогать добры молодцы, каждый из которых может притоптать поле за D часов. Сколько добрых молодцев необходимо пригласить на помощь Феофану, Никодиму и мишке, чтобы они успели притоптать поле за N часов? Формат ввода На вход программе поступает 5 чисел A, B, C, D, N. Все числа вещественные, не превышают 2⋅109. Формат вывода Программа должна вывести одно целое число – минимальное необходимое количество добрых молодцев. Пример Ввод 7 11 8 9 2 Вывод 2

Информатика tarzhanoviv_zn (80 баллов) 28 Май, 20 | 62 просмотров

Дан 1 ответ

Magicw_zn · Answer 1 · 2020-05-28T05:52:48+0000

Вот:

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 (kolvo<0) then write ('Группа справится без молодцев.') else<br>begin
y:=kolvo;
if (((trunc(y*10)) mod 10) <5) then <br>kolvo:=kolvo + 1;
write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo));
end;
end.

Magicw_zn (41 баллов) 28 Май, 20