Из десятичного в шестнадцатеричное и в двоичную() переведите, , данное выражение в n₁₆ и в n₂ 295₁₀-1958₁₀
241
261
Ответы на вопрос:
//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.
Популярно: Информатика
-
МурррKsKs03.10.2020 22:24
-
danilru940Vova15.12.2022 10:59
-
pukishandpapish22.08.2021 12:39
-
Дарига6504.01.2022 13:19
-
kapov2017p0aak605.12.2020 14:38
-
Анндрейй14.08.2022 12:18
-
360Polina36019.11.2020 23:12
-
logvlad925.04.2022 11:56
-
inos2017.09.2020 15:14
-
alicea0708.08.2021 21:31