Question

На предприятии 2-м рабочим выделена премия (N руб). Разделить эту премию между рабочими в зависимости от стажа их работы на предприятии (прямо пропорциональная зависимость). Стаж вводится с клавиатуры.

Answer 1

//PascalABC.NET 3.2 сборка 1318

begin
  var n:=ReadInteger('Премия:');
  var w1:=ReadInteger('Первый рабочий:');
  var w2:=ReadInteger('Второй рабочий:');
  writeln('Первому рабочему:',n*(w1/(w1+w2)));
  writeln('Второму рабочему:',n*(w2/(w1+w2)));
end.

Пример ввода:
24
3
9
Пример вывода:
6
18