Написать функцию, которая принимает 3 числа, наибольшее из них делит наименьшее и возвращает это значение. Для решения задачи понадобится оператор деления с остатком
Написать функцию, которая принимает 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
Не нашли ответ?
Похожие вопросы