Задание 1 Создание таблицы (Главная/Шрифт, Выравнивание, Число) Данная электронная таблица предназначена для использования в области коммунальных услуг. В таблице приведены стоимости некоторых услуг. С этой таблицы можно вычислить плату за квартиру, коммунальные услуги и общую стоимость всех услуг.
Задание 2 Расчет по формулам
Плата за квартиру равна произведению платы за квадратный метр на метраж квартиры.
Плата за холодную, горячую воду, использование газа находится умножением количества проживающих в квартире на соответствующую ставку на одного человека.
Стоимость отопления, технического обслуживания, уборки лестничных клеток, капитального ремонта находится путем умножения метража квартиры на соответствующую ставку.
Общая стоимость находится суммированием платы за квартиру, стоимости холодной воды, отопления, газа, горячей воды, технического обслуживания, уборки лестничных клеток, капремонта, стоимости радио, антенны.
Скидка по оплате находится путем умножения общей стоимости на коэффициент льготы.
Итого к оплате: если есть льгота, то вывести сумму со скидкой, иначе – общую стоимость.
Задание 3 Построение диаграммы (Вставка/Диаграммы/График и Гистограмма)
Общую стоимость и итоговую оплату представьте в виде диаграмм по образцу.
Задание 4 Стандартные функции (Формулы/Библиотека функций/Вставить функцию )
По столбцу Итого к оплате найдите максимальное, минимальное и среднее значения.
n, k, t, i, counter, j: int64;
c: array[1..10]of int64;
a: array[1..100000]of int64;
ar: array[1..10, 1..100000]of int64;
count: array[1..10]of int64;
b: boolean;
label l1;
begin
b := true;
counter := 0;
read(n, k, t);
for i := 1 to n do read(c[i]);
for i := 1 to k do read(a[i]);
l1:
while (counter <> k) do
begin
for j := 1 to n do
begin
for i := 1 to c[j] do
begin
if(ar[j, i] <= a[counter + 1]) then
begin
ar[j, i] := t + a[counter + 1];
counter := counter + 1;
count[j] := count[j] + 1;
b := false;
goto l1;
end;
end;
end;
if(b = true) then counter := counter + 1;
b := true;
end;
for i := 1 to n do write(count[i], ' ');
end.
var
A: array[0..20] of integer;
x, b, i, d, c: integer;
begin
writeln('Введите число элементов в массиве');
readln(d);
writeln('Введите число');;
readln(x);
b:=0;
for i:= 1 to d do
A[i] := random (20);
writeln(A);
for i:= 1 to d do
begin
c:= A[i];
if (c > b) then
b:=A[i]
end;
writeln('Максимальное значение в множестве: ', b);
for i:=0 to d do
begin
b:=A[i];
if b = x then
writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1.
end;
end.