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 можно посмотреть здесь.
Комментарии: