Задача в pascal Двое рабочих заработали вместе 900 рублей. Один работал 2 недели, а другой 4 недели....

program TwoWorkers;

var worker1, worker2: integer;

begin worker1 := 900 div 6 2; worker2 := 900 div 6 4;

writeln('Первый рабочий заработал ', worker1, ' рублей'); writeln('Второй рабочий заработал ', worker2, ' рублей'); end.

Для решения этой задачи на языке программирования Pascal можно использовать следующий подход. Пусть зарплата первого рабочего за одну неделю работы составляет ( x ) рублей, тогда зарплата второго рабочего за одну неделю работы будет ( y ) рублей. Из условия известно, что сумма их заработков за все время работы составляет 900 рублей. Первый работник трудился 2 недели, а второй — 4 недели. Таким образом, у нас есть следующее уравнение:

[ 2x + 4y = 900 ]

Мы можем упростить это уравнение, разделив обе его части на 2:

[ x + 2y = 450 ]

Теперь задачу можно решить, например, предполагая равные зарплаты за неделю (хотя в реальной жизни это может быть и не так), или же задать одну из переменных и найти другую. Напишем программу, которая будет считать зарплату второго рабочего при условии, что зарплата первого рабочего задается пользователем.

Пример программы на Pascal:

program WorkersSalary;

uses crt;

var
    x, y: Integer;  // Зарплаты рабочих за неделю

begin
    clrscr;

    // Запрашиваем у пользователя зарплату первого рабочего за неделю
    Write('Введите зарплату первого рабочего за одну неделю: ');
    Readln(x);

    // Рассчитываем зарплату второго рабочего за неделю
    y := (450 - x) div 2;

    // Выводим результаты
    Writeln('Первый рабочий заработал за 2 недели: ', 2 * x, ' рублей');
    Writeln('Второй рабочий заработал за 4 недели: ', 4 * y, ' рублей');

    Readln;
end.

В этом примере программа запрашивает у пользователя зарплату первого рабочего за неделю и на основе этого данных вычисляет, сколько заработал второй рабочий. Это простой пример, который предполагает ввод данных пользователем и демонстрирует базовые принципы работы с переменными и арифметическими операциями в Pascal.

Программа на Pascal:

program Salary;

var
  worker1, worker2, totalSalary: Integer;

begin
  totalSalary := 900;
  
  worker2 := totalSalary div 6; // Разделим общую сумму на количество недель работы двух рабочих
  worker1 := worker2 * 2; // Первый работал 2 недели, поэтому его заработок умножаем на 2
  
  writeln('Первый работник заработал: ', worker1, ' рублей');
  writeln('Второй работник заработал: ', worker2, ' рублей');
  
end.

При запуске программы результат будет:

Первый работник заработал: 300 рублей
Второй работник заработал: 150 рублей