Question

помогите пж. ABC pascal . ​

Answer 1

Ответ:

begin

 for var x:=1 to 9 do

  begin

   loop x-1 do write('0');

   write(x);

   loop 9-x do write('0');

   writeln;

  end;

end.