Выполните задания по системам счисления.

Переведите: D0E9A16 > X2

​

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016

function gcd(a,b:integer):integer;
// Нахождение НОД
begin
  while b<>0 do
  begin
    a:=a mod b;
    var i:=b; b:=a; a:=i
  end;
  Result:=a
end;

procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
  var k:=gcd(a,b);
  a:=a div k;
  b:=b div k
end;

begin
  var a,b:integer;
  Writeln('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3

quantity = 0

n = int(input())

array = []

counter = 0

while counter != n:

 number = int(input())

 array.append(number)

 counter += 1

for i in range(len(array)):

   for j in range(i + 1, len(array)):

     if ((array[i] * array[j]) % 6 == 0):

       quantity += 1

print(quantity)

Объяснение:

quantity = 0  // Переменная, хранящая количество чисел, равна 0

n = int(input())  // Ввод с клавиатуры количества чисел

array = []  // Создание списка

counter = 0  // Переменная счетчик = 0

while counter != n:  // Пока переменная счетчик ≠ значению переменной n

 number = int(input())  // Ввод числа с клавиатуры

 array.append(number)  // Добавление этого числа в список

 counter += 1  // Переменная счетчик + 1

for i in range(len(array)):  // От 0-го индекса до размера списка

   for j in range(i + 1, len(array)):  // От i + 1 индекса до размера списка (берется значение после индекса i, чтобы сократить время)

     if ((array[i] * array[j]) % 6 == 0):  // Если индекс i списка * индекс j списка делится на 6 без остатка

       quantity += 1  // Количество + 1

print(quantity) // Вывод значения переменной quantity