Question

Даны целые положительные числа a b c d. В прямоугольном параллелепипеде размером a x b x c размещено максимально возможное количество кубов с ребром d(без наложений). Найти количество кубов, размещенных в параллелепипеде, а также объем незанятой части параллелепипеда.

Помогите
программа в delphi
можно и паскаль, но лучше delphi 7)

Answer 1

Консольное приложение:

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

Answer 2

Есть еще пару заданий для тебя!? Поможешь!?