Записать адрес ячейки самого большого сектора

#1

begin

 var N := ReadInteger();

 var sum:real := 1;

 for var i := 1 to N do sum *= 1 / i;

 sum.println;

end.

#2

begin

 var N := ReadInteger();

 var sum:real := 1;

 var divisor := 1;

 while divisor <= N do begin

   sum *= 1/divisor;

   divisor += 1;

 end;  

 sum.Println;

end.

#3

begin

 var N := ReadInteger();

 var sum:real := 1;

 var divisor := 1;

 repeat begin

   sum *= 1/divisor;

   divisor += 1;

 end;  

 until divisor > N;

 sum.Println;

end.

А вообще:

begin

 SeqGen(ReadInteger(), p -> 1/p, 1).product.Println;

end.

ответ A:

i = 0

n = int(input("Введите число: "))

while n != 0:

   if n % 3 == 0:

       i += 1

   n = int(input("Введите число: "))    

print("ответ: {}".format(i))

ответ B:

i = 0

n = int(input("Введите число: "))

while n != 0:

   if (n % 10 == 3) and (n < 100 and n > 9):

       i += 1

   n = int(input("Введите число: "))    

print("ответ: {}".format(i))

ответ C:

i = 0

n = int(input("Введите число: "))

max = n

while n != 0:

   if n > max:

       max = n

   n = int(input("Введите число: "))    

print("ответ: {}".format(max))