Значит надо нарисовать таблицу истинности для всех возможных комбинаций значений A и B. Таких комбинаций будет 2^2=4
A B A+B A+(A!*B)
1 1 1 1
1 0 1 1
0 1 1 1
0 0 0 0
Монохромное изображение это черное белое изображение похоже....С
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
От 0до 255-254 либо нет потомучто не получается как у тебя ответы
1 байт - 8 бит т. е от 00000000=0 до 11111111=255,
все что между ними, - это разные переборы нулей и единиц ни разу не повторяющихся, например 01001100 или 00001111 и т. д. таких переборов как раз 255, 00000001=1 00000010=2 00000011=3 00000100=4 и т. д. 11111110=254
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>