<span>просто знать настройки для редактирования, а так порядка действий нет)</span>
Требуется 4 распила, поэтому на это уйдет:
4 * 1 = 4 минуты.
Прилагаю схематичный рисунок бревна, что бы понять, что при последнем четвертом распиле мы получаем два куска по 2 метра.
1024000/1024/8=125 килобайт в секунду.
2500/125=20 секунд
Program n1;
var sum,kp,ko,a: integer;
begin
readln(a);
sum:=0;
ko:=0;
kp:=0;
while a<>0 do
begin
sum:=sum+a;
if a>0 then kp:=kp+1
else ko:=ko+1;
readln(a);
end;
writeln(sum);
writeln(kp-ko);
end.