От 0 до 8 иначе говоря по 8 цифр на одной позиции
количество комбинаций будет равно 64 (узнали мы это возведя количество чисел (8) в квадрат
2 в 6-й степени равно 64 значит можно закодировать 6-ю битами
231=11100111(в двоичной)
231=153(в восьмеричной)
231=817(в шестнадцатиричной)
Var
x, y: integer;
begin
//вводим x и y
readln(x);
readln(y);
//проверяем x
if (x >= 0) and (x<=20) then
writeln('X принадлежит')
else
writeln('X не принадлежит');
//проверяем y
if (y >= 0) and (y<=20) then
writeln('Y принадлежит')
else
writeln('Y не принадлежит');
<span>end.</span>
Program test;
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.<span>
</span>
Роль источника информации ты можешь играть,например,когда рассказываешь для ученика первого класса что-то новое, для него это является новой информацией,а ты его источник.А роль приёмника,когда узнаешь новую информацию на уроке,получив её от учителя.