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

Question

Составить программу ,которая подсчитывает общее количество целых пятизначных чисел,составленных из различных цифр,которые обладают тем свойством,что число,образованное первыми двумя цифрами ,будучи умноженным на среднию цифру ,дает число,образованное последними двумя числами

Answer 1

Var
  a, b, c, d, e, n: integer;

begin
  n := 0;
  for a := 1 to 9 do
    for b := 0 to 9 do
      for c := 1 to 9 do
        for d := 0 to 9 do
          for e := 0 to 9 do
            if (10 * a + b) * c = (10 * d + e) then n := n + 1;
  Writeln(n)
end.

Тестовое решение:
196