Question

Имеется трёхзначное число, цифры которого различны. После зачёркивания в нём последней цифры, остаётся двузначное число, являющееся делителем данного. Найдите N-первых таких трёхзначных чисел. (N=70)

Answer 1

Var k,x,a:integer;
Begin
 x:=100;
 k:=0;
 repeat
   a:=x div 10;
   if (x mod a)=0 then
     begin
      writeln(x);
      k:=k+1;
     end;
   x:=x+1;
 until k=70;
End.