Вопрос по информатике:
Выполнить задание в Паскале: имеется офис в форме прямоугольного параллелепипеда со сторонами A,B,C ( C-высота ). Необходимо покрасить все стены в офисе, при этом известно, что одно банки краски хватает на 8 м^2. Сколько нужно купить банок краски?
- 01.04.2018 19:27
- Информатика
- remove_red_eye 3156
- thumb_up 19
Ответы и объяснения 1
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.
- 02.04.2018 13:41
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.