1) Высказывание А=1, высказывание Б=0. Нарисуйте логическую схему
для логического сложения А V Б. Определите результат операции.
2) Высказывание А=1, высказывание Б=0. Нарисуйте логическую схему
для логического умножения А Б. Определите результат операции.
3) Нарисуйте сложную логическую схему и
найдите значения логического выражения:
((1 V 0) V1) V0.
4) По заданной сложной логической схеме по-
стройте логическое выражение и найдите
его значение:
N = 15;
var
mas:array[1..15] of integer;
i, max1, max2, min, c, d:integer;
begin
c:=-1;
max1:=-maxint;
min:=maxint;
max2:=-maxint;
randomize;
for i:=1 to N do
mas[i]:=random(101)-50;
write('Массив: ');
for i:=1 to N do
write(mas[i], ' ');
writeln;
for i:=1 to N do
begin
if (mas[i]>0) AND (mas[i]>max1) then
max1:=mas[i];
if (mas[i] mod 2 <> 0) AND (max2<mas[i]) then
begin
c:=i;
max2:=mas[i];
end;
if (mas[i] mod 2 <> 0) AND (min>mas[i]) then
begin
d:=i;
min:=mas[i];
end;
end;
writeln('Максимальный положительный элемент: ',max1);
writeln('Минимальный нечетный элемент: ',min);
writeln('Максимальный нечетный элемент: ',max2);
if c<d then
writeln('Максимальный элемент стоит раньше')
else
writeln('Минимальный элемент стоит раньше');
end.
a,str:string;
k,n,i,z,m,j,c,S,x,y,l:integer;
begin
writeln('введите число');
readln(str);
writeln('a ?');
readln(a);
writeln('z ?');
readln(z);
writeln('x & y');
readln(x,y);
n:=length(str);
for i:=1 to n do
begin
if str[i]=a then
k:=k+1;
val(str[i],m,j);
if m mod z=0 then
c:=c+1;
if str[i]>a then
begin
val(str[i],m,j);
s:=s+m;
end;
val(str[i],m,j);
if (m=x)or(m=y)then
l:=l+1;
end;
writeln('k: ',k,'кратное z: ',c,' s: ',s,' кол-во x,y: ',l);
end.