Текст подпрограммы и версий ( Фортран )
pa11i.zip 
Тексты тестовых примеров ( Фортран )
tpa11i.zip 
Текст подпрограммы и версий ( Си )
pa11i_c.zip 
Тексты тестовых примеров ( Си )
tpa11i_c.zip 
Текст подпрограммы и версий ( Паскаль )
pa11i_p.zip 
Тексты тестовых примеров ( Паскаль )
tpa11i_p.zip 

Функция:  PA11I

Назначение

Вычисление общего наибольшего делителя двух целых чисел.

Математическое описание

Подпрограмма - функция PA11I, имеющая целый тип, использует алгоритм Евклида для вычисления общего наибольшего делителя двух целых чисел M и N, которые могут быть заданы как отрицательными, так и положительными.

Использование

    INTEGER  FUNCTION  PA11I (M, N) 

Параметры

     M, N - заданные значения целых чисел, для которых ищется общий наибольший делитель (тип: целый).

Версии: нет

Вызываемые подпрограммы: нет

Замечания по использованию: нет

Пример использования

       M = 252 
       N = 441 
       L = PA11I (M, N) 

Результат:   L = 63