Функция определения НОД числа на Pascal
Функция определения НОД числа...
function NOD(a,b: integer): integer;
begin
while b<>0 do
begin
var c := a mod b;
a := b;
b := c;
end;
Result := a;
end;
var x,y: integer;
begin
x := 15; y := 12;
writelnFormat('НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
x := 144; y := 64;
writelnFormat('НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
x := 99; y := 54;
writelnFormat('НОД чисел {0} и {1} равен {2}',x,y,NOD(x,y));
end.
![](/templates/ABCVG/js/share/icon-vk.png)
![](/templates/ABCVG/js/share/icon-fb.png)
![](/templates/ABCVG/js/share/icon-tw.png)
10.02.2015, 10:29 -
Категория: Статьи » Программирование » Pascal