Екі санның ең үлкен ортақ бөлгішін табу

 

program EYOB;

var n,m,x,e,y: integer;

begin

write (‘m, n сандарын енгіз’);

readln (m,n);

x:=m; y:=n;

while x<>y do

if x>y then x:=x-y else y:=y-x;

e:=x;

writeln (‘ ең үлкен ортақ бөлгіш=’,e);

end.

 

            Артқа