Здрасте. объясни-те тему : вычитание дроби из целого числа.

Для начала я скажу,что я незнаю,что вы уже прошли,поэтому тебе может быть что-то непонятно. итае представим чило,как дробь с числителем и знаменателем равным дроби.к примеру из числа 2 нужно вычесть дробь 2/3,для этого представим число 2 ввиде дроби 6/3.получаем 6/3-2/3=4/3 это неправильная дроби.её можно в смешанной,для этого выделим целую часть получаем дробь 1 1/3. вот ещё пример,допустим нам нужно из числа 1 вычесть дробь   30/40. число 1 можно представить как дробь с совершенно любым числителем и знаменателем(но они должны быть одним и тем же числом. итак,число 1 = дроби 40/40.из неё нужно вычесть 30/40. 40/40-30/40=10/40,эту дробь можно сократить,сокращаем на 10,получаем 1/4.это число можно перевести в десятичное чило,выходит 0,25.по-моему всё.если что-то нужно дорассказать то обращайся.

А)  общий знаменатель 24 , делим 24 на знаменатель первой дроби  12 ,получаем дополнительный можитель 2, теперь делим общий знаменатель 24 на знаменатель второй дроби  24, получаем   дополнительный множитель  1,   затем умножаем дополнительные можители на числители , сначала дополнительный множитель 2 умножаем на 5 ,получаем 10 , потом умножае6м дополнительный множитель второй дроби на числитель 11 ,получаем 11 , теперь складываем полученое ,10 +11 в числителе ,а24 в знаменателе =21в числителе ,а в заменателе 24 а) 5/12+11/24= 10+11/24=21/24б)17/18-7/9= 17-14/18

Var   m, n, k, mn, p: integer;   f: text; begin   assign(f, 'input.txt');   reset(f);   readln(f, m, n);   close(f);   if m < n then mn : = m else mn : = n;   if mn = 1 then p : = 0   else begin       k : = mn div 2;       if mn mod 2 = 0 then           if m = n then p : = 4 * k - 2           else p : = 4 * k - 1       else       if m = n then p : = 4 * k       else p : = 4 * k + 1   end;   assign(f, 'output.txt');   rewrite(f);   writeln(f, p);   close(f) end. так? ?