Предмет: Информатика,
автор: alexis169
Даны целые положительные числа a b c d. В прямоугольном параллелепипеде размером a x b x c размещено максимально возможное количество кубов с ребром d(без наложений). Найти количество кубов, размещенных в параллелепипеде, а также объем незанятой части параллелепипеда.
Помогите
программа в delphi
можно и паскаль, но лучше delphi 7)
Ответы
Автор ответа:
0
Консольное приложение:
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
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
Автор ответа:
0
Есть еще пару заданий для тебя!? Поможешь!?
Похожие вопросы
Предмет: Математика,
автор: moybacon
Предмет: Алгебра,
автор: danwolf453
Предмет: Информатика,
автор: poccNR2006
Предмет: Математика,
автор: сееекретт
Предмет: Математика,
автор: Olga2050