Proc48. Учитывая, что наименьшее общее кратное двух целых положительных чисел $$A$$ и $$B$$ равно $$A$$*($$B$$/НОД($$A$$, $$B$$)), где НОД($$A$$, $$B$$) — наибольший общий делитель $$A$$ и $$B$$, и используя функцию NOD2 из задания Proc46, описать функцию NOK2($$A$$, $$B$$) целого типа, находящую наименьшее общее кратное чисел $$A$$ и $$B$$. С помощью NOK2 найти наименьшие общие кратные пар ($$A$$, $$B$$), ($$A$$, $$C$$), ($$A$$, $$D$$), если даны числа $$A$$, $$B$$, $$C$$, $$D$$.
Формулы:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
program Proc48; Function NOD2(A,B:Integer):Integer; begin while (A<>0) and (B<>0) do begin if a>b then A:=(a mod b) else B:=(B mod A); end; NOD2:=A+B; end; Function NOK2(A,B:Integer):Integer; begin NOK2:=A*(B div NOD2(A,B)); end; var A, B, C, D: integer; begin Write('A :'); Readln(A); Write('B :'); Readln(B); Write('C :'); Readln(C); Write('D :'); Readln(D); Writeln(NOK2(A,B)); Writeln(NOK2(A,C)); Writeln(NOK2(A,D)); end. |
Решение:
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: