Question

Даны четыре числа. для каждого числа найти все его делители и подсчитать их количество pascal

Answer 1

Var
   A,d,k,i:longint;
Begin
WriteLn('Введите четыре числа');
For i:= 1 to 4 do
    Begin
    Read(A);
    Write('Делители числа ',A,': ',A,', ');
    d:=A div 2+1;
    While d>0 do
       Begin
       if A mod d = 0 then
          Begin
          Write(d,', ');
          k:=k+1;
          End;
       d:=d-1;
       End;
    Write('кол-во его делителей: ',k);
    k:=1;
    WriteLn;
    End;
End.

Пример:
Введите четыре числа
987654321 32767 256 13
Делители числа 987654321: 987654321, 329218107, 109739369, 58097313, 19365771, 6455257, 3417489, 1139163, 379721, 2601, 867, 289, 153, 51, 17, 9, 3, 1, кол-во его делителей: 17
Делители числа 32767: 32767, 4681, 1057, 217, 151, 31, 7, 1, кол-во его делителей: 8
Делители числа 256: 256, 128, 64, 32, 16, 8, 4, 2, 1, кол-во его делителей: 9
Делители числа 13: 13, 1, кол-во его делителей: 2

Answer 2

Var
  i: integer;
  ar: array[1..4]of integer;

 procedure Divisor(x: integer);
 var
  d, c: integer;
 begin
  c := 1;
  if(x < 1) then exit;
  write(x, ' = ');
  if(x = 1) then begin writeln(1, ' Количество делителей:', 1);exit end; 
  d := 2;
  while x > 1 do
  begin
    if(x mod d = 0) then
     begin
      if(x div d <> 1) then write(d, ' * ')
       else write(d, '; ', ' Количество делителей:', c);
        x := x div d;
        c := c + 1;
     end
    else d := d + 1;
  end;
  writeln;
end;
  begin
  writeln('Введите четыре числа:');
  for i := 1 to 4 do read(ar[i]); 
  writeln;
  for i := 1 to 4 do Divisor(ar[i]);
end.