Поиск по этому блогу

среда, 20 сентября 2017 г.

Ремонт

(Время: 1 сек. Память: 16 Мб Сложность: 11%)

Ваш любимый дядя – директор фирмы, которая делает евроремонты в офисах. В связи с финансово-экономическим кризисом, дядюшка решил оптимизировать свое предприятие.

Давно ходят слухи, что бригадир в дядюшкиной фирме покупает лишнее количество стройматериалов, а остатки использует для отделки своей новой дачи. Ваш дядя заинтересовался, сколько в действительности банок краски необходимо для покраски стен в офисе длиной L метров, шириной – W и высотой – H, если одной банки хватает на 16м2, а размерами дверей и окон можно пренебречь? Заказов много, поэтому дядя попросил написать программу, которая будет все это считать.

Входные данные

Входной файл INPUT.TXT содержит три натуральных числа L, W, H – длину, ширину и высоту офиса в метрах соответственно, каждое из которых не превышает 1000.

Выходные данные

В выходной файл OUTPUT.TXT выведите одно целое число – минимальное количество банок краски, необходимых для покраски стен в офисе.

Примеры
INPUT.TXT
OUTPUT.TXT
1
8 8 2
4
2
1 1 3
1


Решение
var
s,i,j,k,p:integer;
f,f1:text;
begin
assign(f,'input.txt');
reset(f);
assign(f1,'output.txt');
rewrite(f1);
readln(f,i,j,k);
p:=(i+j)*2*k;
s:=p div 16;
if (p mod 16) <>0 then s:=s+1;
write(f1,s);
close(f1); close(f);
end.

Комментариев нет:

Отправить комментарий