1. Відкрийте табличний процесор і на Аркуші 1 створіть таблицю за зразком. 2. Посортувати дані по полю „Продавець” і ”Виробник принтера”, помістивши курсор в довільній комірці таблиці.
3. Виберіть в пункті меню Дані – Проміжні підсумки і загальні підсумки роботи.
4. Визначити кількість принтерів, проданих кожним продавцем.
5. Визначити суму продажів для кожного продавця.
6. Визначити загальний підсумок за всіма параметрами.
7.Переробіть дану таблицю за до Умовного форматування так, щоб ціна менша за 5000 грн була на зеленому фоні, а більша за 10000 грн – на червоному фоні.
. в нужно вывести все составные числа из промежутка [2; n]. код программы:
program lab3;
var i,n,j,s,l: integer;
m: real;
begin
readln (n);
for i: =2 to n do
begin
s: =trunc (sqrt (i));
for l: =2 to s do
begin
m: = i mod l;
if m=0 then
write (' ',i);
end;
end;
end.
но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?
2³ = 3 + 5
3³ = 7 + 9 + 11
4³ = 13 + 15 + 17 + 19
Заметим что во втором выражении первое число(7) получается как 3*(3-2)+1
В третьем аналогично: 13 получается как 4*(4-1)+1
Получаем формулу для первого значения: x1 = n*(n-1)+1
Остальные числа получаются путём прибавления 2 к предыдущему слагаемому. Так же заметим что число слагаемых равно числу которое мы возводим в степень.
x = int(input("Введите число: "))
xn = x * (x - 1) + 1
rezultat = xn
while (x != 1):
xn += 2
rezultat += xn
x -= 1
print("Результат возведения в 3 степень:", rezultat)
ответ:
. в нужно вывести все составные числа из промежутка [2; n]. код программы:
program lab3;
var i,n,j,s,l: integer;
m: real;
begin
readln (n);
for i: =2 to n do
begin
s: =trunc (sqrt (i));
for l: =2 to s do
begin
m: = i mod l;
if m=0 then
write (' ',i);
end;
end;
end.
но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?
var
i, n, j, s, l: integer;
m: real;
begin
readln(n);
for i : = 2 to n do
begin
s : = trunc(sqrt(i));
for l : = 2 to s do
begin
m : = i mod l;
if m = 0 then
begin
write(' ', i);
break;