Блок схемы не очень момню поэтому заменил блоки тэгами. Надеюсь, понятно.
<блок начало> Начало
<блок ввода данных> Ввести А, B </блок>
<блок действия> C:=(A+B)/2 </блок>
<блок дествия> D:=2*A*B</блок>
<блок проверки условия> A<b?</блок>
<если да>
<блок действия> A:=C</блок>
<блок дествия>B:=D</блок>
</если>
<если нет>
<блок действия> B:=C</блок>
<блок дествия>A:=D</блок>
</если>
<блок вывода>Вывести A,B<блок вывода>
<span><блок конца>Конец </блок></span>
15 (в десятичной) = 1111 ( в двоичной )
10 в десятичной) = 1010 ( в двоичной )
15/2 =7(остаток 1)
7/2 = 3(остаток 1)
3/2 =1 (остаток 1)
Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
74 в двоичной будет <span>1001010
91 в двоичной будет </span><span>1011011
Для того чтобы понять как это вышло, попробуйте любое из чисел делить постоянно на 2
Если требовалось вычесть 74-91, то вышло бы -17, что в двоичной системе выглядит как: </span><span>-10001</span>