Yaklass.ru 1/5
Условие задания
3 Б.
Ежегодно каждый сотрудник компании пишет список необходимых ему канцелярских товаров. В
этом году список получился вот такой:
директор: 18 ножниц, 37 ручек, 1 календарь.
1
Бухгалтер: 36 упаковок бумаги, 1 дырокол.
Маркетолог: I маркер, 18 ручек.
Менеджер: 22 ручки, 1 ножницы, 1 степлер.
Завхоз: 2 маркера, 1 календарь.
Определи, сколько всего единиц канцелярских товаров должна закупить компания.
ответ:
ножниц,
| упаковок(-и) бумаги,
3 маркера,
ручки(-ек),
2 календаря, один дырокол и один степлер.
ответить!
var a: array[1..maxn] of integer;
skv,prod,gr,i: integer;
begin
writeln('введите ',maxn,' чисел');
skv:=0; prod:=1;
gr:=0;
for i:=1 to maxn do
begin
write(i,': '); readln(a[i]);
if a[i]<0 then skv:=skv+a[i]*a[i];
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
prod:=prod*a[i];
if abs(a[i])>100 then gr:=gr+1;
end;
writeln('сумма квадратов отрицательных: ',skv);
writeln('произведение четных на четных местах: ',prod);
writeln('больше 100 по модулю: ',gr);
end.
введите 15 чисел
1: 151
2: -231
3: 104
4: 19
5: 36
6: -112
7: 5
8: 8
9: 11
10: 13
11: 45
12: 5
13: 6
14: 17
15: 19
сумма квадратов отрицательных: 65905
произведение четных на четных местах: -896
больше 100 по модулю: 4
Из нее вычитаем площадь двери A×B и полученную площадь умножаем на количество теплиц N.
Получаем S=(π×R×(C+R)-А×В)×N
A, B, C, R, N - это исходные данные
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
begin
var n:=ReadInteger('Количество теплиц:');
var a,b,c,r:real;
Write('Введите радиус теплицы и её длину, м: '); Read(r,c);
Write('Введите размеры двери теплицы, м: '); Read(a,b);
Writeln('Потребуется плёнки, м: ',(pi*r*(c+r)-a*b)*n:0:2)
end.
Пример
Количество теплиц: 7
Введите радиус теплицы и её длину, м: 3.5 18.4
Введите размеры двери теплицы, м: 1.1 1.9
Потребуется плёнки, м: 1670.99