Turbo pascal.
из чисел от 1 до 100 вывести только те у которых ровно 10 делителей

48 80

Объяснение:

program abcd;

var

 i, j, k: shortint;

begin

 for i := 1 to 100 do

 begin

   k := 2;

   for j := 2 to i div 2 do

     if i mod j = 0 then Inc(k);

   if k = 10 then Write(i, ' ');

 end;

end.