Сколько банок краски нужно для покраски нескольких цилиндрических бочек без крышки, если на 1 кв. м. площади расходуется

@gamas · Регистрация: 17.12.2018

Author24 — интернет-сервис помощи студентам

Сколько банок краски нужно для покраски нескольких цилиндрических бочек без
крышки, если на 1 кв. м. площади расходуется 1 банка краски. Бочки красим и внутри
и снаружи. (Для подсчета количества банок краски использовать функцию trunc).
Решение.
Исходные данные: a – количество бочек, r – радиус дна бочки, h – высота бочки.
Результат: n – количество банок краски.
Формулы, необходимые для решения задачи:
длина окружности

@JuriiMW · 31.03.2020, 11:02

Вас ввели в заблуждение!
Нужна не функция trunc, а ceil

Pascal

begin
  var(a,r,h):=(ReadInteger,ReadReal,ReadReal);
  Ceil(a*(pi*r**2+2*pi*r*h)).Print;
end.

@gamas · 31.03.2020, 11:14 **[ТС]**

это условие написал препод

@JuriiMW · 31.03.2020, 11:19

Ну, дык, сказать ему, что он не прав!

@gamas -1 / 0 / 0 Регистрация: 17.12.2018 Сообщений: 69
		1
	Сколько банок краски нужно для покраски нескольких цилиндрических бочек без крышки, если на 1 кв. м. площади расходуется 31.03.2020, 10:43. Показов 2481. Ответов 3 Метки нет (Все метки) Сколько банок краски нужно для покраски нескольких цилиндрических бочек без крышки, если на 1 кв. м. площади расходуется 1 банка краски. Бочки красим и внутри и снаружи. (Для подсчета количества банок краски использовать функцию trunc). Решение. Исходные данные: a – количество бочек, r – радиус дна бочки, h – высота бочки. Результат: n – количество банок краски. Формулы, необходимые для решения задачи: длина окружности 0

@gamas -1 / 0 / 0 Регистрация: 17.12.2018 Сообщений: 69
	31.03.2020, 11:14 [ТС]	3
	это условие написал препод 0

@JuriiMW 5084 / 2655 / 2350 Регистрация: 10.12.2014 Сообщений: 10,046
	31.03.2020, 11:19	4
	Ну, дык, сказать ему, что он не прав! 0