Помогите, пожалуйста, поправить код на паскаль.

[v13]

Вот код. Ошибка: нельзя преобразовать тип real в integer (в строке x:=x/a[i]). Помогите, пожалуйста, исправить.

var c,i,j,x:longint;
    a,b:array[1..1000000] of longint;

begin

read(x);
c:=1;
for i:=2 to (x div 2) do
begin
  if (x mod i = 0) then
  begin
    for j:=2 to i div 2 do
    begin
      if (not i mod j = 0) then
      begin
        a[c]:=i;
        c:=c+1;
      end;
    end;
  end;
end;

while(not x=1) do
begin
  for i:=1 to c do
  begin
    if(x mod a[i]=0) then
    begin
      x:= (x / a[i]);
      b[i]:=b[i]+1;
    end;
  end;
end;

for i:=1 to c do
begin
  if((not b[a[i]]=1) and (not b[a[i]]=0))then 
  begin
    write(a[i],'^',b[a[i]],'*');
  end;
  if(b[a[i]]=1)then 
  begin
    write(a[i],'*');
  end;
end;
end.

[type_Oleg]

К целым нельзя / , надо x:=x div a[i]

[v13]

Спасибо большое

[v13]

Появилась ещё одна ошибка: Index выходит за границы массива (вот строка if(b[q]>1)then ) подскажите, пожалуйста из-за чего ошибка и как её исправить?

var
  c, i, j, x, q: longint;
  a, b: array[1..100000000] of longint;

begin
  
  read(x);
  c := 1;
  for i := 2 to (x div 2) do
  begin
    if (x mod i = 0) then
    begin
      for j := 2 to i div 2 do
      begin
        if (not i mod j = 0) then
        begin
          a[c] := i;
          c := c + 1;
        end;
      end;
    end;
  end;
  
  while(not x = 1) do
  begin
    for i := 1 to c do
    begin
      if(x mod a[i] = 0) then
      begin
        x := (x div a[i]);
        b[i] := b[i] + 1;
      end;
    end;
  end;
  
  for i := 1 to c do
  begin
    q := a[i];
    if(b[q] > 1) then 
    begin
      write(a[i], '^', b[q], '*');
    end;
    if(b[q] = 1) then 
    begin
      write(a[i], '*');
    end;
  end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Aleksandr H.]

значение элемента a[i] которое получает переменная q превышает значение правой границы массива b (100000000)
UPD
точно...что такого елемента с таким индексом в массиве b

[Serge_Bliznykov]

v13, Вы какую задачу решаете с помощью этого своего кода?

Сообщение от v13

Index выходит за границы массива (вот строка if(b[q]>1)then )

Сообщение от v13

q := a[i];

а есть уверенность, что в массиве a находятся только числа, которые находятся в диапазоне от 1 до 100000000 ?
что там не ноль, например?

[v13]

Вообщем всё исправил всё работает, но долго. как можно сократить или упростить чтобы уложиться в секунду?

var c,i,j,x,q,k,n:longint;
a,b:array[0..100000000] of longint;

begin

read(x);
c:=1;
n:=0;
for i:=2 to (x div 2) do
begin
  k:=0;
  if (x mod i = 0) then
  begin
  n:=n+1;

    if(i div 2 >=2)then
    begin
      for j:=2 to i div 2 do
      begin
        if(i mod j=0)then
        begin
          k:=k+1;
        end;
      end;
      if (k=0) then
      begin
        a[c]:=i;
        c:=c+1;
      end;
    end;
    if(i div 2 < 2)then
    begin
      a[c]:=i;
      c:=c+1;  
    end;
  
  end;
end;

if(n>0)then
begin
while(x>1) do
begin
  for i:=1 to c-1 do
  begin
    q:=a[i];
    if(x mod q = 0) then
    begin
      x:= (x div q);
      b[q]:=b[q]+1;
    end;
  end;
end;

for i:=1 to c do
begin
  q:=a[i];
  if(b[q]=1)then 
  begin
    write(q);
  end;
  if(b[q]>1)then 
  begin
    write(a[i],'^',b[q]);
  end;
  if(i<(c-1))then write('*');
end;
end else write(x);

end.

Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Plague]

Сообщение от Serge_Bliznykov

v13, Вы какую задачу решаете с помощью этого своего кода?

Видимо это задача разложения числа на простые множители и приведение его к каноническому виду.
378 = 2*3^3*7