Потому, что архитектура современных компьютеров предусматривает обработку данных, содержащих целое число байт и один байт является минимальным размером таких данных.
//V = (100 -2*h)*(100 -2*h)*h
const L = 100;
var V1, V2,h :real;
begin
v1:= 0; v2:=1; h:=10;
while (v2 - v1) >0 do
begin
v1 := (100 - 2* h)* (100 - 2* h)*h;
h := h +0.5;
v2 := (100 - 2* h)* (100 - 2* h)*h;
writeln('Высота = ', h , ', Объем ', v1);
end;
writeln('Высота = ', h , ', Максимальный объем ', v1);
<span>end.</span>
Во времена Конфуция писали на узеньких дощечках 'из расщепленного бамбука. Тонкую кисточку или палочку обмакивали в черную тушь и наносили иероглифы сверху вниз. Если делали ошибку, то соскабливали написанное ножом. Потом в дощечках делали отверстия и продевали бечевку. Связка бамбука и была древнекитайской книгой.
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ReadArrReal('Введите компоненты:',n);
Writeln('Минимальный косинус равен ',a.Select(x->cos(x)).Min:0:5)
end.