Другие языки программирования и технологии

Задача для pascal

Суточный рацион коровы составляет a кг сена, b кг силоса и c кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось x центнеров сена, y тонн силоса и z мешков комбикорма по 50 кг. Сколько еще дней хозяйство сможет кормить коров по полному рациону.
АП
Александр Пригода
104 
 var a, b, c, k, x, y, z, m, t: integer;

begin

  read(a, b, c, k, x, y, z);

  m := x * 100 div (a * k);

  t := y * 1000 div (b * k);

  if t < m then m := t;

  t := z * 50 div (c * k);

  if t < m then m := t;

  write(m)

end.
Виктор Петрусенко
Виктор Петрусенко
63 337
Лучший ответ
Алгоритм решения этой задачи:

1. Сначала нужно перевести все единицы измерения в килограммы.
Для этого нужно умножить количество центнеров сена на 100, количество тонн силоса на 1000 и количество мешков комбикорма на 50.

2. Затем нужно найти общее количество корма на одну корову за сутки.
Для этого нужно сложить количество килограммов сена, силоса и комбикорма, т.е. a + b + c.

3. Далее нужно найти общее количество корма, которое есть в хозяйстве.
Для этого нужно сложить количество килограммов сена, силоса и множественное количество комбикорма, т.е. x*100 + y*1000 + z*50.

4. Наконец, нужно найти сколько дней можно кормить стадо из k коров.
Для этого нужно разделить общее количество корма в хозяйстве на общее количество корма на одну корову за сутки, а затем разделить это число на k.

Итоговый код на Pascal:

var a, b, c, x, y, z, k: integer;
var s : integer; // общее количество корма
var p : integer; // общее количество корма на одну корову за сутки
var d : integer; // количество дней

begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
write('Введите x (центнеры сена): '); readln(x);
write('Введите y (тонны силоса): '); readln(y);
write('Введите z (количество мешков комбикорма): '); readln(z);
write('Введите k (количество коров): '); readln(k);

s := x*100 + y*1000 + z*50;
p := a + b + c;
d := s div (p*k);

writeln('Общее количество корма: ', s, ' кг');
writeln('Количество корма на одну корову за сутки: ', p, ' кг');
writeln('Количество дней, которое можно кормить стадо из ', k, ' коров: ', d);
end.
НА
Надежда Абраменкова
10 606
Виктор Петрусенко Очередная феерическая глупость в очередной раз опубликованная очередным придатком нейросети.

Похожие вопросы