Question

Создайте задачу в паскале Работают 3 слесаря – 1-й слесарь 1-го разряда. Ему за деталь платят 20 тенге. У него не бывает брака. 2-й слесарь 2-го разряда. Ему за деталь платят 15 тенге. У него каждая пятая деталь с браком 3-й слесарь 3-го разряда. Ему за деталь платят 10 тенге. У него каждая Третья деталь с браком. За бракованные детали деньги не платят. Количество деталей для 2-го слесаря вводится с клавиатуры. Не менее 100 деталей. 1-й слесарь сделал в 2 раза больше 2-го. 3-й слесарь сделал на 50 деталей меньше.1-го. Найти и напечатать количество деталей, выполненное каждым рабочим, и сумму, заработанную каждым слесарем отдельно, и их общий заработок.

Answer 1

Задача не совсем внятная, так что предполагается следующее:

1. С клавиатуры вводится кол-во деталей, которые должен сделать 2-й слесарь, то есть без учета брака.

2. 3-й слесарь не сделал на 50 деталей меньше 1-го, а

должен был сделать.

3. Каждый рабочий получает деньги только за качественную деталь (не брак).

var s1,s2,s3,k1,k2,k3: integer;

begin

write('Количество деталей для 2-го слесаря (не менее 100): ');

readln(k2);

k2:=k2-k2 div 5;

k1:=2*k2;

k3:=k1-50;

k3:=k3-k3 div 3;

s1:=20*k1;

s2:=15*k2;

s3:=10*k3;

writeln('1 слесарь сделал ',k1,' деталей, он заработал ',s1,' тенге');

writeln('2 слесарь сделал ',k2,' деталей, он заработал ',s2,' тенге');

writeln('3 слесарь сделал ',k3,' деталей, он заработал ',s3,' тенге');

writeln('Всего 3 слесаря заработали ',s1+s2+s3,' тенге');

end.

Answer 2

Давайте создадим задачу на языке Pascal, которая решает данную задачу:

pascalCopy code
program FactoryWork;

var
  detailsForSecond, detailsForFirst, detailsForThird: Integer;
  paymentForFirst, paymentForSecond, paymentForThird: Real;
  totalPaymentForFirst, totalPaymentForSecond, totalPaymentForThird, totalEarnings: Real;

begin
  // Ввод данных
  Write('Введите количество деталей для 2-го слесаря (не менее 100): ');
  Readln(detailsForSecond);

  // Подсчет данных
  detailsForFirst := 2 * detailsForSecond;
  detailsForThird := detailsForFirst - 50;

  // Расчет заработка для каждого слесаря
  paymentForFirst := detailsForFirst * 20;
  paymentForSecond := (detailsForSecond - detailsForSecond div 5) * 15;
  paymentForThird := (detailsForThird - detailsForThird div 3) * 10;

  // Общий заработок
  totalPaymentForFirst := paymentForFirst;
  totalPaymentForSecond := paymentForSecond;
  totalPaymentForThird := paymentForThird;
  totalEarnings := totalPaymentForFirst + totalPaymentForSecond + totalPaymentForThird;

  // Вывод результатов
  Writeln('Количество деталей для 1-го слесаря: ', detailsForFirst);
  Writeln('Количество деталей для 2-го слесаря: ', detailsForSecond);
  Writeln('Количество деталей для 3-го слесаря: ', detailsForThird);
  Writeln('Заработок 1-го слесаря: ', totalPaymentForFirst:0:2, ' тенге');
  Writeln('Заработок 2-го слесаря: ', totalPaymentForSecond:0:2, ' тенге');
  Writeln('Заработок 3-го слесаря: ', totalPaymentForThird:0:2, ' тенге');
  Writeln('Общий заработок всех слесарей: ', totalEarnings:0:2, ' тенге');
end.

Примечание: Убедитесь, что используете среду разработки Pascal (например, Free Pascal или Turbo Pascal), чтобы скопировать и выполнить данный код. Ввод и вывод данных могут немного различаться в разных средах разработки.