Сколько различных сочетаний нулей и единиц для кодовой таблицы символов можно получить с одного байта (8 бит)? 1) 256 сочетаний; 3) 8 сочетаний; 2) 1024 сочетания; 4) 1 сочетание.
229
478
Ответы на вопрос:
Const n = 5; var x: array[1..n] of integer; i: integer; begin for i : = 1 to n do readln(x[i]); for i : = 1 to n do if i = 1 then x[1] : = 2 else if (i = n) and (n mod 2 < > 0) then x[n] : = n - 1 else if i mod 2 < > 0 then x[i] : = ((i + 1) + (i - 1)) / 2; for i : = 1 to n do writeln(x[i]); end.var m, n, m1, n1, k: integer; ch, ost: real; beginreadln(m, n); m1 : = m; n1 : = n; k : = 0; if m< n then begin ost: =m/n; ch: =0; end; if m=n then beginch: =1; ost: =0; end; if m> n then begin while m1 > 0 do beginif m1 = n then begink : = k + 1; break; end; m1 : = m1 - n; k : = k + 1; end; ch : = k - 1; if m1 = n then begin ost : = 0; ch : = k; endelsebegin ost : = (m1 + n1) / n1; ch : = k - 1; end; end; writeln(ch, ' ', ost); end. const n=5; var a: array[1..n] of real; i,k: integer; b,p: real; begin k: =1; for i: =1 to n do readln(a[i]); writeln('введите число'); readln(b); for i: =1 to n do begin if a[i]< b then begin p: =a[k]; a[k]: =a[i]; a[i]: =p; k: =k+1; end; end; for i: =1 to n do writeln(a[i]); end.
Популярно: Информатика
-
okmaksimowac225.11.2022 22:48
-
простой22101.07.2022 21:51
-
6классКZ01.04.2023 11:47
-
Арина2007111109.04.2020 12:10
-
natashavoropaeva09.09.2021 15:58
-
артем20456714.11.2022 15:04
-
GgWp221320.06.2023 22:19
-
liza9novxp011he28.02.2023 15:24
-
стефания3131.03.2020 04:45
-
kosen233202.10.2022 07:31