Question

Решить в паскале В первый день рабочий произвел х деталей. Во второй и в последующие дни он увеличивал норму предыдущего дня в 2 раза. Сколько деталей он делал каждый день данной недели?

Answer 1

Var x,i:integer;
begin
readln(x);
for i:=2 to 7 do
 begin
 x:=2*x;
 writeln(i,': ',x);
 end;
end.

Пример:
2
2: 4
3: 8
4: 16
5: 32
6: 64
7: 128

Answer 2

Конечно, я помогу с этой задачей. Давайте решим ее.

По условию задачи, в первый день рабочий произвел х деталей. Пусть это количество деталей будет представлено переменной `x`.

Затем он увеличивал норму предыдущего дня в 2 раза.

Таким образом, чтобы найти количество деталей, которое он делал каждый последующий день недели, мы можем использовать формулу для вычисления количества деталей на каждый день.

Давайте организуем это в коде на Pascal:

program DetailsPerDay;

var
  day, x: Integer;

begin
  // Введите количество деталей, произведенных в первый день (x)
  Write('Введите количество деталей, произведенных в первый день: ');
  Readln(x);
  
  // Выводим количество деталей для каждого из 7 дней недели
  for day := 1 to 7 do
  begin
    WriteLn('День ', day, ': ', x, ' деталей');
    x := x * 2; // Увеличиваем количество деталей в 2 раза для следующего дня
  end;
end.

Этот код позволит вам ввести количество деталей, произведенных в первый день, а затем вычислит количество деталей для каждого из 7 дней недели, увеличивая количество деталей в 2 раза каждый последующий день.

Таким образом, если в первый день рабочий произвел, например, 5 деталей, то он будет делать следующее количество деталей каждый день недели: 5, 10, 20, 40, 80, 160, 320 соответственно.