Pagini recente » Borderou de evaluare (job #3182946) | Borderou de evaluare (job #1639167) | Borderou de evaluare (job #1748217) | Borderou de evaluare (job #2177188) | Cod sursa (job #143978)
Cod sursa(job #143978)
program euclid;
var a,b:longint;
f,g:text;
function cmmdc(a:longint;b:longint):longint;
begin
while((a<>0) and (b<>0))do
begin
if(a>b)then
a:=a mod b
else
b:=b mod a;
end;
cmmdc:= a or b
end;
begin
assign(f,'euclid2.in');
reset(f);
readln(f,a,b);
close(f);
assign(g,'euclid2.out');
rewrite(g);
writeln(g,cmmdc(a,b));
close(g);
end.