V = или = +, соответственно, А V B = А или B = А + В = 1 + 1 = 1 (в двоичной системе счисления)
Составляй сам(а). Ты учишься или кто?
№3
program fofgogjoj;
var
a,b,c,S,P:real;
begin
Writeln('Введите длину катета a');
Readln(a);
Writeln('Введите длину катета b');
Readln(b);
c:=sqrt(a*a+b*b);
P:=a+b+c;
S:=(1/2)*a*b;
Writeln('P=', P:0:2);
Writeln('S=', S:0:2);
end.
Рассмотрим третий байт IP-адреса узла и IP-адрес сети. Распишем в двоичном виде:
94 = 01011110
80 = 01010000
Первые два байта маски равны 255, так как байты узла и сети совпадают.
Для определения третьего байта маски сети найдем число первых бит, которые совпадают. Совпадают 0101, поэтому число первых бит равно 4, а сам третий байт маски равен 11110000, то есть 240.
Program n1;
var n, k, i, c : integer; a:array[0..35] of integer;
begin
read(N);
if (N>=1)and(N<=35) then c:=n
else
begin
writeln('error');
read(N);
end;
for i:=1 to c do
begin
read(a[i]);
if A[i]>0 then k:=k+1;
end;
writeln(k);
end.
Как то так
программа была скопирована из компилятора и там работала по условию