Який цикл потрібно використовувати, коли потрібно спочатку виконати деяку послідовність дій, а потім визначити, чи є потреба повторювати ці дії ще раз? цикл з лічильникомцикл з післяумовоюцикл з передумовою​

2 напвне "но ето нє точно"

# 1.

# Полагаю, что в техническом задании ошибка и считаю фразу "делятся на" фразой "целочисленно делятся на".

def IsDivisible(digit, n): return (digit % n == 0)

digits=range(20, 50 + 1)

required=[str(digit) for digit in digits if IsDivisible(digit, 2) and not IsDivisible(digit, 5)]

print("Result:\n", '\n'.join(required))

# 2.

# Боль от запятой. Голову изломал от этого дробного остатка...

digits=range(35, 87 + 1)

required=[str(digit) for digit in digits if digit % 7 == 1 or digit % 7 == 2 or digit % 7 == 5]

print("Result:\n", '\n'.join(required))

Программа:

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.