#9:
bool res = (A % 2 != 0 || B % 2 != 0);
#10:
bool res = (A % 2 != 0 && B % 2 == 0 || A % 2 == 0 && B % 2 != 0);
#11:
bool res = (A % 2 == B % 2);
#12:
bool res = (A >= 0 && B >= 0 && C >= 0);
#13:
bool res = (A >= 0 || B >= 0 || C >= 0);
#14:
bool res = (A >= 0 && B <0 && C < 0 || A < 0 && B >= 0 && C < 0 || A < 0 && B < 0 && C >= 0);
#15:
bool res = (A >= 0 && B >= 0 && C < 0 || A >= 0 && B < 0 && C >= 0 || A < 0 && B >= 0 && C >= 0);
#16:
bool res = (A % 2 == 0 && A % 10 != 0 && A % 100 == 0);
#17:
bool res = (A % 2 != 0 && A % 100 != 0 && A % 1000 == 0);
#18:
bool res = (A == B || A == C || B == C);
#19:
bool res = (A + B == 0 || A + C == 0 || B + C == 0);
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var R := Sqrt(ReadReal('x=')+Pi/4);
R.Println;
end.
<h2>Пример</h2><h3>x= 45.3243</h3><h3>6.79041222337771 </h3>
1) const N = 10;
var a:array[1..N] of integer;
i, k: integer;
begin
k:=0;
for i:=1 to N do
a[i]:= random((80) - 20);
if (a[i] mod 10 = 6) and (a[i] mod 2 = 0) then
k:=k+1;
end;
writeln(k);
2)const N = 10;
var a:array[1..N] of integer;
i, k: integer;
begin
k:=0;
for i:=1 to N do
a[i]:=random(100);
for i:=1 to N-1 do
if a[i] = a[i+1] then
k:=k+1;
writeln(k);
end.
1 бит это самая маленькая информационная единица. Бит это значение 0 или 1.
Чтобы закодировать 2 возможных варианта, достаточно 1 бита.
Если нужно закодировать 3 варианта, то нужно будет уже 2 бита.
При чем 2мя битами можно закодировать 3 варианта и даже 4.
Количество исходов, или символов которые можно закодировать определяется по формуле: 2 в степени х = количество исходов.
где Х - количество Бит.
Так 2^5= 32 --- значит 5 битами можно закодировать 32 символа и менее.
2^6=64 --- 6ю битами можно закодировать 64 символа и менее.
Значит от вет будет 6 бит
В мире коммуникаций и высоких технологий всё устроено в основном автоматически и многим управляет программа или искусственный интелект.Программисты же пишут программы и создают искусственные интелекты.