Сколько цветов будет содержать палитра, если каждый базовый цвет кодировать двумя битами?
186
449
Ответы на вопрос:
//pascal var arr: array [1..255] of byte; i, n, a, b: byte; begin randomize; //в pascalabc.net можно убрать write('введите количество элементов массива: '); readln(n); writeln; writeln(' ***исходный массив*** '); for i : = 1 to n do begin arr[i] : = random(50); write(arr[i], ' '); end; writeln; writeln; write('введите диапазон a и b: '); readln(a, b); writeln; writeln('номера элементов'); for i : = 1 to n do if ((arr[i] > = a) and (arr[i] < = b)) then write(i, ' '); writeln; readln; end.
Популярно: Информатика
-
Настятвсердечко04.05.2023 08:56
-
genenko1814.05.2021 04:21
-
Акулинна24.09.2021 22:57
-
Nikita653726.06.2021 03:53
-
CasDavis03.01.2022 23:19
-
sheidpavla23.09.2020 16:22
-
dghhhghhhvj20.08.2020 00:52
-
Настька121006.10.2022 09:50
-
nikrozumenko05.07.2022 06:25
-
Анна348106.04.2023 15:50