var
i, k: integer;
begin
i:= 100;
k:= 0;
while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.
(A×B)v(C×A)
(A×B) - 1
(C×A) - 2
A B C <u>B</u><u>C</u> 1 2 F
0 0 0 1 1 0 0 0
0 0 1 1 0 0 0 0
0 1 0 0 1 0 0 0
0 1 1 0 0 0 0 0
1 0 0 1 1 1 1 1
1 0 1 1 0 1 0 1
1 1 0 0 1 0 1 1
1 1 1 0 0 0 0 0
Ваша схема, в общем, верна. Её можно чуть упростить, убрать проверку Р.
1) БЕГЖАВД
2) АГВЖДЕБ
3) ВАГБ
4) 4132
4) 52867142