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

Насттттттття Насттттттття    2   20.09.2019 09:30    0

Ответы
ирина1834 ирина1834  08.10.2020 04:17
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика