Ваш любимый дядя – директор фирмы, которая делает евроремонты в офисах. в связи с финансово- кризисом, дядюшка решил оптимизировать свое предприятие. давно ходят слухи, что бригадир в дядюшкиной фирме покупает лишнее количество стройматериалов, а остатки использует для отделки своей новой дачи. ваш дядя заинтересовался, сколько в действительности банок краски необходимо для покраски стен в офисе длиной 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 решить на языке c++ используя только операторы +, -, *, /, %;
Ответы
А - количество порций эскимо на столе
В - количество стаканчиков на столе
Начало
Ввод данных:
В : = 18
А : = В/3
Действие 1:
В : = В - 3
Действие 2:
А:= А-5
Вывод результатов:
Покажи А
Покажи В
Конец
Протокол выполнения алгоритма:
№ команды Имя переменной Значение переменной
1. В 18
2. А 6
3. В 15
4. А 1
В - количество стаканчиков на столе
Начало
Ввод данных:
В : = 18
А : = В/3
Действие 1:
В : = В - 3
Действие 2:
А:= А-5
Вывод результатов:
Покажи А
Покажи В
Конец
Протокол выполнения алгоритма:
№ команды Имя переменной Значение переменной
1. В 18
2. А 6
3. В 15
4. А 1
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var n:=ReadInteger('Количество элементов массива ');
var m:=ArrRandom(n,-50,50); m.Println(', ');
var a:=0; var b:=0; var c:=0;
for var i:=0 to n-1 do begin
if m[i]>0 then a:=a+m[i];
if m[i]<m[b] then b:=i;
if m[i] mod 5 = 0 then Inc(c)
end;
var w:=(b+1)+a/(c+1);
WritelnFormat('A={0}, B={1}, C={2}, W={3}',a,b+1,c,w);
Writeln('Принято, что элементы массива нумеруются от единицы')
end.
Тестовое решение:
Количество элементов массива 13
-43, -15, 18, -8, -13, -47, -36, 6, -16, 45, 33, 33, -24
A=135, B=6, C=2, W=51
Принято, что элементы массива нумеруются от единицы
begin
var n:=ReadInteger('Количество элементов массива ');
var m:=ArrRandom(n,-50,50); m.Println(', ');
var a:=0; var b:=0; var c:=0;
for var i:=0 to n-1 do begin
if m[i]>0 then a:=a+m[i];
if m[i]<m[b] then b:=i;
if m[i] mod 5 = 0 then Inc(c)
end;
var w:=(b+1)+a/(c+1);
WritelnFormat('A={0}, B={1}, C={2}, W={3}',a,b+1,c,w);
Writeln('Принято, что элементы массива нумеруются от единицы')
end.
Тестовое решение:
Количество элементов массива 13
-43, -15, 18, -8, -13, -47, -36, 6, -16, 45, 33, 33, -24
A=135, B=6, C=2, W=51
Принято, что элементы массива нумеруются от единицы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
readln(l,w,h);
writeln(trunc(2*h*(l+w)/16)+1);