Question

Паскаль! Ввести целое число и определить все его делители. Вывести все делители числа на экран. Через REPEAT и UNTIL.

Answer 1

Программа:

program dividers;

var x, i, p: integer;

   y: array of integer;

function dividersOf(n: integer; includeNegative: boolean := false):array of integer;

var a: array of integer;

   i, k: integer;

begin

 k:= 1;

 if(n<0) then n:= n*(-1);

 for i:= 1 to n

   do if(n mod i = 0)

        then begin

               SetLength(a, k);

               a[a.Length-1]:= i;

               k:= k+1;

             end;

 if(includeNegative)

   then a:= a.Select(x -> x*(-1)).Sorted.ToArray+a;

 dividersOf:= a;

end;

begin

 readln(x);

 y:= dividersOf(x, true);

 p:= y.Length-2;

 i:= 0;

 writeln('Делители числа ', x, ':');

 repeat

   write(y[i], ', ');

   i:= i+1;

 until i=p;

 write(y[p+1], '.');

end.

Answer 2

Конечно, вот пример программы на языке программирования Pascal, которая выполняет указанное действие с использованием конструкций REPEAT и UNTIL:

pascalCopy code
program Divisors;
var
  number, divisor: integer;
begin
  write('Введите целое число: ');
  readln(number);
  
  writeln('Делители числа ', number, ':');
  
  divisor := 1;
  repeat
    if number mod divisor = 0 then
      writeln(divisor);
    divisor := divisor + 1;
  until divisor > number;
  
end.

Суть программы в том, чтобы начать с делителя равного 1 и последовательно увеличивать его на 1 до тех пор, пока делитель не станет больше введенного числа. Если введенное число делится нацело на текущий делитель, то он будет выведен на экран.

Не забудьте скомпилировать и запустить программу в вашей среде разработки Pascal для проверки.