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