Cod sursa(job #5461)
| Utilizator |  CoolShadow CoolShadow |
Data | 12 ianuarie 2007 16:14:56 |
|---|---|---|---|
| Problema | A+B | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
program a_b;
var
f: text;
r, a, b: longint;
begin
assign(f, 'cmmdc.in');
reset(f);
readln(f,a);
readln(f,b);
close(f);
r:=a mod b;
while r<>0 do
begin
a:=b;
b:=r;
r:=a mod b;
end;
assign(f, 'adunare.out');
rewrite(f);
if b=1 then
write(f, 0)
else
write(f, b);
close(f);
end.