Выполнить задание в Паскале: имеется офис в форме прямоугольного параллелепипеда со...

Question

Выполнить задание в Паскале: имеется офис в форме прямоугольного параллелепипеда со сторонами A,B,C ( C-высота ). Необходимо покрасить все стены в офисе, при этом известно, что одно банки краски хватает на 8 м^2. Сколько нужно купить банок краски?

Answer 1

Program Test;

var  A, B, C, S, K: byte;

begin 
ReadLn(A, B, C); 
S := ((A * C) * 2) + ((B * C) * 2); 
K := S div 8;   

 if (k mod 10) > 0 then
begin Inc(K);WriteLn('Потребуется купить ', K, ' банок краски');
end;   

 if (k mod 10) < 0 then WriteLn('Потребуется купить ', K, ' банок краски');

end.