Найти каноническое разложение числа n на множители

Skidbalnir

(Паскаль) Помогите пожалуйста. Найти каноническое разложение числа n на множители. вычислить количество и сумму всех делителей числа n.
4 ответа

Skidbalnir

uses crt;
var
  a,i,k,z,sum,count:integer;
begin
  clrscr;
  readln(a);
  i:=2;
  z:=a;
  while (i<sqrt(z)) and (a <> 1) do begin
    k:=0;
    while a mod i = 0 do begin
      a:= a div i;
      inc(k);
    end;
    if k <> 0 then begin
      write(i,'^',k,'*');
      inc(count);
      sum:=sum+i;
    end;
    inc(i);
  end;
  writeln;
  writeln('summa del = ',sum);
  writeln('kol-vo del = ',count);
end.


Skidbalnir

Он в freepaskal не компилится=(


Skidbalnir

Skidbalnir, компилируется все


Skidbalnir

а как в дополнение к этому ещё найти T и S? (картинка с объяснением прилагаются. пункт 3). Заранее спасибо