Pagini recente » Borderou de evaluare (job #2395807) | Cod sursa (job #2374244) | Monitorul de evaluare | Cod sursa (job #218393)
Cod sursa(job #218393)
program celule;
label
001;
var
n, m, k, i, j: longint;
a, p: array[1..5999] of longint;
f: text;
begin
assign (f, 'celule.in');
reset (F);
readln(f, n, m);
close (f);
if n < m then
begin
k:=n;
n:=m;
m:=k;
end;
p[1]:=2;
k:=1;
for i:= 3 to n do
begin
for j:= 1 to k do
if i mod p[j] = 0 then
goto 001;
p[k+1]:=i;
k:=k+1;
001:;
end;
j:=0;
for i:=1 to k do
begin
while n mod p[i]=0 do
begin
n:= n div p[i];
a[i]:= a[i]+1;
end;
while m mod p[i]=0 do
begin
m:=m div p[i];
a[i]:= a[i]-1;
end;
a[i]:= abs(a[i]);
j:=j+a[i];
end;
assign(f, 'celule.out');
rewrite(F);
writeln(f, j);
close(f);
end.
end.