Сколько существует трёхзначных чисел, в записи которых встречается только одна двойка? Составьте программу для получения правильного ответа.

var a, b, c, k: integer;

begin

k:=0;

for a:=1 to 9 do

for b:=0 to 9 do

 for c:=0 to 9 do

 if (a=2)and(b<>2)and(c<>2) or

    (a<>2)and(b=2)and(c<>2) or

    (a<>2)and(b<>2)and(c=2) then k:=k+1;

writeln('k = ',k);

end.

Результат:

k = 225