Pascal Calculate Divisors
Calculate Divisors
Program Evkr_1;
Var a,b:integer;
Begin
Write('a,b=');
Read(a,b);
While a<>b do
Begin
if a>b then a:=a-b
else b:=b-a
End;
Write('a=b=NOD',a);
End.
CODE
LIBARY.COM
Program Evkr_1;
Var a,b:integer;
Begin
Write('a,b=');
Read(a,b);
While a<>b do
Begin
if a>b then a:=a-b
else b:=b-a
End;
Write('a=b=NOD',a);
End.