с задачей по информатике(: Информационный объём статьи, набранной на компьютере, составляет 30 Кбайт. Определите, сколько страниц содержит статья, если известно, что на каждой странице 32 строки, в каждой строке 48 символов и каждый символ кодируется 16 битами (одна из кодировок Unicode). В качестве ответа введите только число, единицы измерения указывать не нужно.
242
255
Ответы на вопрос:
Const m = 6; n = 4; var a: array[1..m, 1..n] of integer; b: array[1..m] of integer; i, j, p, pmax, imax: integer; flag: boolean; begin {1} randomize; writeln('исходный массив'); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = random(81) - 40; write(a[i, j]: 4) end; writeln end; {2} writeln('произведения построчно'); for i : = 1 to m do begin p : = 1; for j : = 1 to n do p : = p * a[i, j]; writeln(i, ': ', p: 9) end; {3} pmax : = -maxint; writeln('максимальное построчное произведение'); for i : = 1 to m do begin p : = 1; for j : = 1 to n do p : = p * a[i, j]; if pmax < p then begin pmax : = p; imax : = i; end end; writeln(imax, ': ', pmax: 9); {4} for i : = 1 to m do b[i] : = a[i, 1]; for i : = 2 to m do begin p : = b[i]; j : = i - 1; flag : = false; while (j > 0) and (not flag) do if p < b[j] then begin b[j + 1] : = b[j]; j : = j - 1 end else flag : = true; b[j + 1] : = p end; writeln('отсортированный первый столбец'); for i : = 1 to m do writeln(b[i]: 3) end. тестовое решение: исходный массив -27 4 3 14 15 40 -39 -27 40 -40 -40 -24 -38 7 18 1 17 27 29 -9 10 -32 38 0 произведения построчно 1: -4536 2: 631800 3: -1536000 4: -4788 5: -119799 6: 0 максимальное построчное произведение 2: 631800 отсортированный первый столбец -38 -27 10 15 17 40
Популярно: Информатика
-
Iryna45229.05.2020 15:52
-
Naruto7xokage11.05.2020 17:37
-
petrovspb29.05.2020 10:20
-
Pelageya209116.08.2021 13:08
-
OtlicnikKZ133704.06.2021 16:54
-
candiesgirl1622.02.2023 12:51
-
zhanara050713.03.2022 15:54
-
НастяБелова1024.02.2021 22:33
-
лооол1913.01.2022 23:29
-
щувовтслалтв18.07.2021 09:58