Светлана
6 год назад
Даны целые положительные числа a b c d. В прямоугольном параллелепипеде размером a x b x c размещено максимально возможное количество кубов с ребром d(без наложений). Найти количество кубов, размещенных в параллелепипеде, а также объем незанятой части параллелепипеда.Пожалуйста посчитайтепрограмма в delphiможно и паскаль, но лучше delphi 7)
ОТВЕТЫ
Aristarh
Oct 24, 2020
Консольное приложение:
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
369
Смежные вопросы:
