Упростить:
([не]х1 или х2) = х1 и х2
составить таблицы истинности:
х1 х2 [не]х1 или х2
0 0 1
1 0 0 *
0 1 1
1 1 1 *
х1 х2 х1 и х2
0 0 0
1 0 0 *
0 1 0
1 1 1 *
у нас два совпадающих расклада*, при которых уранение полностью ложно или полностью истинно:
при х1=1, а х2=0:
0=0 - ложно
при х1=1 и х2=1:
1=1 - истинно, значит, это и есть ответ.
8 бит = 1 байт
3 байта в слове бит (в кодировке ANSI - обычной, 8 бит это 1 символ).
32 бита в слове байт.
512 битов = 64 байта
81 920 битов = 10 килобайтов
A=1; b=2
1+2<8 ⇒ истина;
1 шаг цикла.
a=a+1=1+1=2; b=b+2=2+2=4
2+4<8 ⇒ истина;
2 шаг цикла.
a=2+1=3; b=4+2=6
3+6<8 ⇒ ложь
s=3+6=9
Ответ: цикл выполнится 2 раза, переменные: a=3; b=6, s=9
Var
a,a1,a2:integer;
Begin a:=10;
Write('Двузначные числа, сумма цифр которого равна 12: ');
while a<100 do
begin
a1:=a mod 10;
a2:=a div 10;
if (a1+a2)=12 then write(a,', ');
a:=a+1;
end;
<span>End.
</span>
===== PascalABC.NET =====
begin
var a := ReadArrInteger(3);
a.Println;
var (mx, mn) := (a.Max, a.Min);
a.Transform(p -> p = mn ? mx : p);
a.PrintLines
end.