Написать функцию, которая принимает 3 числа, наибольшее из них делит наименьшее и возвращает это значение. Для решения задачи понадобится оператор деления с остатком

Type

St = record

iquo: integer; {целая часть}

irem: integer; {числитель дроби}

idiv: integer; {знаменатель дроби}

end;

function iMax (i, j: integer) : integer;

begin

if i > j then iMax : = i else iMax : = j

end;

function iMin (i, j: integer) : integer;

begin

if i < j then iMin : = i else iMin : = j

end;

function FR (i, j, k: integer) : St;

var

nmax, nmin: integer;

begin

nmax : = iMax (iMax (i, j), k) ;

nmin : = iMin (iMin (i, j), k) ;

with Result do

begin

iquo : = nmax div nmin;

idiv : = nmin;

irem : = nmax mod nmin

end

end;

var

a, b, c: integer;

r: St;

begin

write ('Введите через пробел три целых числа:') ;

readln (a, b, c) ;

r : = FR (a, b, c) ;

writeln ('Результат работы функции: ', r. iquo, ' целых и ', r. irem, '/', r. idiv)

end.

Тестовое решение:

Введите через пробел три целых числа: 343 253 37

Результат работы функции: 9 целых и 10/37