Recur9. Описать рекурсивную функцию NOD($$A$$, $$B$$) целого типа, находящую наибольший общий делитель (НОД) двух натуральных чисел $$A$$ и $$B$$, используя алгоритм Евклида: НОД($$A$$, $$B$$)=НОД($$B$$, $$A$$ mod $$B$$), если $$B \ne 0$$;НОД($$A$$, $$0$$)=$$A$$. С помощью этой функции найти НОД($$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 |
program Recur9; var A,B,C,D:integer; Function NOD(A,B:integer):integer; begin if B=0 then result:=A else result:=NOD(B,A mod B); end; begin Write('A: '); Readln(A); Write('B: '); Readln(B); Write('C: '); Readln(C); Write('D: '); Readln(D); Writeln(NOD(A,B)); Writeln(NOD(A,C)); Writeln(NOD(A,D)); end. |
Другие задачи из раздела Recur можно посмотреть здесь.
Комментарии: