Есть ответ 👍

Задача 3: Ремонт забора
Забор состоит из N одинаковых вертикальных досок. Некоторые из досок сгнили и нуждаются в замене, для каждой доски известно, нужно ли её заменить. Для ремонта забора можно использовать продающиеся в магазине щиты, которые бывают L разных видов: шириной в 1 доску, в 2 доски, ..., в L досок. Щит нельзя разрезать на части, то есть одним щитом можно заменить не более любых L подряд идущих досок. При этом можно менять не только сгнившие доски, но и хорошие.

Оказалось, что все щиты стоят одинаково, независимо от размера щита. Определите, какое наименьшее число щитов необходимо приобрести, чтобы починить весь забор.

139
329
Посмотреть ответы 1

Ответы на вопрос:


var

x, counter : integer;

begin

readln(x);

x := abs(x);

while x > 0 do

begin

if (x mod 10 = 0) then

counter := counter + 1;

x := x div 10;

end;

writeln(counter);

end.

Популярно: Информатика