Создайте таблицу на Web-странице с блокнота.

Прайс-лист
№ Название Цена Производитель Срок годности
1 Хлеб 75 ТОО «Пекарь» 05.04.2019 07.04.2019
2 Печенье 990 05.04.2019 05.05.2019
3 Молоко 191 ТОО «Milk» 05.04.2019 11.04.2019
4 Сметана 250 05.04.2019 15.04.2019
5 Соль 120 ИП «Туз» 05.04.2019 05.10.2019

👇

Увидеть ответ

Ответ:

сергей940

17.02.2022

хлеб печенье молоко сметана соль категории

75 990 191 250 120 количество

пекарь милк туз производитель

05042019 дата промизводства

аналагично срок годности когда заканчивается

Объяснение:

4,5(91 оценок)

Открыть все ответы

Ответ:

friyukelizaveta

17.02.2022

1) 1,5 Кбайта=1,5 * 1024 байта = 1,5 * 1024 *8 бит = 12288 бит
12288/3072 = 4 бита - на один символЗначит N=2^4 = 16 символов в алфавите.

2) 1 символ = 8 бит = 1 байт

150*40*60=360000 (символов/байт)
это ответ и есть, но можно для удобства перевести в килобайты
1 килобайт = 1024 байт

360000/1024=351,5625

ответ: 360000 байт или 351,5625 килобайт

3) посмотрим сколько же всего символом на двух страницах:256*2 = 512 сиволов.Теперь посмотрим сколько байт они занимают:1 килобайт (по старым нормам) = 1024 байта (по новым уже нет :( )1024/16 = 64 байта. в одном байте 8 бит, значит 64 байта это 64*8 = 512 бит информации.разделим: 512/512 = 1 бит информации на символ. Мощность алфавита = 2 в степени количества информации на символ, то есть 2 в первой, или просто 2.ответ: мощность алфавита равна двум.

4,5(77 оценок)

Ответ:

Romabl4

17.02.2022

Непростая задача...

const
n = 16;

type
R = record
    v: integer;
    p: integer
end;
mR = array[1..n] of R;

function SummOfDigits(n: integer): integer;
{ Сумма цифр в трехзначном числе }
begin
SummOfDigits := (n div 100) + ((n mod 100) div 10) + (n mod 10)
end;

procedure Swp(var a, b: R);
{ Меняет местами элементы a и b }
var
t: R;
begin
t.v := a.v; t.p := a.p;
a.v := b.v; a.p := b.p;
b.v := t.v; b.p := t.p
end;

procedure Shell(var a: mR; n: integer);
{ сортировка методом Шелла }
var
i, j, step: integer;

begin
step := n div 2;
while step > 0 do
begin
    for j := n - step downto 1 do
    begin
      i := j;
      while i <= n - step do
      begin
        if a[i].v > a[i + step].v then Swp(a[i], a[i + step]);
        i := i + step
      end
    end;
    step := step div 2
end
end;

var
a: array[1..n] of integer;
b: mR;
i: integer;

begin
Randomize;
Writeln('*** Исходные элементы массива ***');
for i := 1 to n do
begin
    a[i] := Random(900) + 100;
    b[i].v := SummOfDigits(a[i]);
    b[i].p := i;
    Write(a[i]:4)
end;
Writeln;
Shell(b, n);
Writeln('*** Упорядоченные по возрастанию суммы цифр элементы массива ***');
for i := 1 to n do
begin
    Write(a[b[i].p]:4)
end;
Writeln
end.

Тестовое решение:

*** Исходные элементы массива ***
862 244 599 379 595 840 551 151 614 383 185 893 131 172 139 256
*** Упорядоченные по возрастанию суммы цифр элементы массива ***
131 151 244 172 551 614 840 139 256 185 383 862 595 379 893 599

4,5(65 оценок)

Это интересно:

Стиль-и-уход-за-собой

19.07.2022

Как наносить минеральный тональный крем: лучшие советы и рекомендации от профессионалов...

Кулинария-и-гостеприимство

23.03.2021

Как приготовить в духовке жареного цыпленка...

Компьютеры-и-электроника

13.09.2020

Как легко и быстро установить Instagram на Андроид? Ответ здесь!...

Дом-и-сад