Ответ:

13

Объяснение:

Ниже составлена универсальная программа для задач такого типа. Все, что вам требуется-прописать в поле констант g как отрезок, h как целое. Прога выведет количество k отрезков g в бруске или чем-то таком h.

const

 g = 1.5;

 h = 20;

var

 l : real;  

 k : integer;

begin

 l:= 0;

 k:= -1;

 while l < h do begin

 l:= l + g;

 k:= k + 1;

 end;

 write(k);

end.