Дизъюнкция ещё называется
Имеет вид a+b, a|b, a or b
Выражение истинно, если хотя бы одно из условий истинно
Таблица:
a b a+b
0 0 0
0 1 1
1 0 1
1 1 1
Pascal:
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.
1101110(2)=1*2^6+1*2^5+1*2^3+1*2^2+1*2^1=64+32+8+4+2=110
110(2)=1*2^2+1*2^1=4+2=6
Изначально было записано число 6
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.