Pascal, дроби, числа и т.д

[Fiesko]

С Pascal'ем дел не имел, но понадобилось узнать следующее:
1. Как найти общий знаменатель.
2. Перестановка чисел. Например есть ряд чисел - 123456. Нужно сделать так, чтобы 3 поменялась например с 1 местами. Только чтобы числа для замены, указывать самому.
Подскажите пожалуйста

[chertovich]

используйте div и mod

[Serge_Bliznykov]

1-я задача. поиском по форуму Вы легко найдёте примеры, как вычисляется НОК и НОД

2-я задача. Есть много способов решения.
1) Если решение ничем искуственно не ограничено,
то я бы число преобразовал в строку (а строка, напоминаю, это массив символов. Как в массиве поменять два элемента местами, надеюсь, Вы знаете? )

2) с помощью операторов div и mod
N mod 10 даёт последнюю цифру числа N
потом уменьшаем число, разделив на 10, и повторяем процесс
например, вот так можно перекинуть цифры числа N в массив Digits
(внимание! цифры в массиве будут в обратном порядке):

  CountDigit := 0;
  repeat
     inc( CountDigit );
     Digits[ CountDigit ] := N mod 10;
     N := N div 10;
  until N=0;