Даны целые положительные числа a b c d. в прямоугольном параллелепипеде размером a x b x c размещено максимально возможное количество кубов с ребром d(без наложений). найти количество кубов, размещенных в параллелепипеде, а также объем незанятой части параллелепипеда. программа в delphi можно и паскаль, но лучше delphi 7)
var a,b,c,d,k,s:integer;
begin
readln(a,b,c,d);
k:=(a div d) * (b div d) * (c div d);
s:=a*b*c-d*d*d;
writeln('k = ',k,' s = ',s);
end.
Пример:
14 10 7 5
k = 4 s = 855