Reik pagalbos su pascaliu

Kaip isprest ta programa

Sudarykite programą, randančią intervalo [m;n] skaičius, turinčius k daliklių. Pvz. intervale [15;20] yra 2 skaičiai (18 ir 20), turintys 6 daliklius.

up

O nebandei paprasciausiai paimti masyva ir pagal salyga tikrini ar tas skaicius dalinasi nuo 1 iki tavo intervalo . Aisku cia butu labai neefektuvu...

program uzarbislt;

 function dal_sk (arg : integer) : integer;
var j : integer;
 begin
dal_sk := 0;
for j := 1 to arg do
  if arg mod j = 0 then
	inc (dal_sk);
 end;


 var i, n, m, k : integer;
begin
 ReadLn (n, m, k);
 for i := n to m do
if dal_sk(i) = k then
  WriteLn (i);
 Readln;
end.