Указатели

[Анютик_sexi]

Даны натуральные числа р и q. Получить все делители числа q, взаимно простые с р.
Я в долгу не остаюсь...

[RUSt88]

ммм, напиши мне, помогу

[Snejnaya]

Здесь считается, что q и р не больше 100, если могут быть больше нужно изменить объявление массивов в var

var i,j,q,p,n,m,min:integer;
    delit1, delit2:array 1..100 of integer;
    flag:boolean;

begin
//ищем делители q(не тривиальные)
n:=0;
for i:=2 to (q-1) do
if ((q mod i)=0) then
begin
n:=n+1;
delit1[n]:=i;
end;

//для каждого делителя q проверяем, не является ли он взаимнопростым с р
m:=0;
for i:=1 to n do
flag:=false;
begin
if delit1[i]<p then min:=delit1[i] else min:=p;

for j:=2 to min do
if (delit1[i] mod j = 0) and (p mod j = 0) then flag:=true;

if (not flag) then 
begin
m:=m+1;
delit2[m]:=delit1[i];
end;
end;
//выводим результат на экран
for i:=1 to m do writeln(delit2[i]);
end.

[megachuhancer]

program Project6;
{$APPTYPE CONSOLE}
var
  p, q, i, d: Integer;
  s: Real;
function gcd(a, b: Integer): Integer;
begin
  while (a > 0) and (b > 0) do
    if a > b then a := a mod b
    else b := b mod a;
  gcd := a + b;
end;
begin
  ReadLn(p, q);
  s := sqrt(q);
  for i := 1 to trunc(s) do if q mod i = 0 then begin
    if gcd(i, p) = 1 then WriteLn(i);
    if i <> s then begin d := q div i; if gcd(d, p) = 1 then WriteLn(d); end;
  end;
  ReadLn;
end.

Правда не по возрастанию, но об этом никто не просил. Зато быстро(правда здесь оно нафиг не нужно, но я уж пишу, как пишу )