Задача, состоит в том, чтобы определить сколько кубиков можно поместить в здание формой цилиндра обрезаного вдоль его высоты, по линии диаметра(как ангар ) так чтобы все вместились и лежали ровно:
Саму програму то я собсно написал, но вот возникла проблема, до помеченой строчки прога просто не доходит, пропусскает её и все последующие...
Кампилятор TDE
program kyb;
var
m,r,a,I:integer;
kr,k:real;
begin
read(m,r,a);
k:=0;
I:=0;
while I*a<r do
begin
inc(I);
kr:=2*r-2*sqrt(r*r-I*I*a*a );
k:=k+int((2*r-kr)/a);
end;
k:=k*(m div a); {<=== эта строчка, и всё что дальше игнорируется}
write(k);
readln;
end.
Интерено былобы узнать в чем ошибка
Сообщение отредактировано: RathaR -