28 ! петя решил придумать свой шифр. он взял данную ниже кодировочную таблицу и для каждого десятичного кода произвел замену первой цифры в коде на последнюю цифру.дана таблица, нужно заполнить: петин десятичный код. заш. слов.122102902 ? ? мышь391302602202 ?

Aх^2+вх+с=0var a, b, c, d, x1, x2 : real;   begin  write('a = '); readln(a);   write('b = '); readln(b);   write('c = '); readln(c);   d : = b*b + 4*a*c;   if d=0 then  begin  x1 : = b / (2 * a)  writeln (x1: 3: 3);   end  else  if d> 0 then  begin  x1 : = (- b + sqrt(d) / (2 * a);   x2 : = (- b - sqrt(d) / (2 * a);   writeln (x1: 3: 3, ' ', x2: 3: 3);   end  else  writeln ('нет решения');   end.

var

   n, i, aon_i, k: integer;

   f: boolean;

function AmountOfNumbers(n: integer): integer;

var

   s: integer;

begin

   s := 0;

   while n > 0 do

   begin

       s := s + n mod 10;

       n := n div 10;

   end;

   AmountOfNumbers := s;

end;

begin

   readln(n);

   

   for i := 0 to n do

   begin

       f := true;

       aon_i := AmountOfNumbers(i);

       

       for k := 2 to 9 do

           f := f and (aon_i = AmountOfNumbers(k * i));

       if f then writeln(i);

   end;

end.

Объяснение: