Конъюкцию (and). Поскольку одно из условий оператора if (а>1) всегда равно 1. а другое (а<b) всегда нулю, то результат <span>(a > 1) and (a < b) будет 0 и переменная а получит приращение в 7
</span>a := 10; b := 5;
<span>if (a > 1) and (a < b) then </span>
a := a - 7
else
<span>a := a + 7;</span>
Сумма того что находится в ячейке А1+ то что находится в ячейке Б1
Например А1=2 Б1=3 тогда в ячейке где будет =А1+Б1 после нажатия Enter даст сумму этих ячеек ,т.е 5
Надеюсь доходчиво объяснила ☺️ удачи
//Pascal ABC.NET v3.1 сборка 1172
begin
range(26,87).Where(x -> x mod 3=0).Println(',');
end.
999/2 = 498 +1
499/2 = 249 + 1
249/2 = 124 +1
124/2 = 62 + 0
62/2 = 31+ 0
31/2 = 15+1
15/2 = 7+1
7/2 = 3 + 1
3/2 = 1 + 1
999 = <span>1111100111
</span><span>10985 = </span>10101011101001
Var a:array [1..10] of Integer; i,temp:Integer; f:Boolean;
begin
Randomize;
for i:=1 to 10 do
a[i]:=Random(100);
for i:=1 to 10 do
write(a[i]:3);
Writeln;
repeat
f:=False;
for i:=1 to 9 do
begin
if a[i]>a[i+1] then
begin
f:=True;
temp:=a[i];
a[i]:=a[i+1];
a[i+1]:=temp;
end;
end;
until not f;
for i:=1 to 10 do
write(a[i]:3);
temp:=0;
for i:=1 to 3 do
temp:=temp+a[i];
Writeln;
Writeln(temp);
Readln;
<span>end.</span>