39 lines
515 B
Plaintext
39 lines
515 B
Plaintext
var
|
|
a, b, c, x, v: smallint;
|
|
f: text;
|
|
|
|
|
|
function gcd(m, n: smallint): smallint;
|
|
var
|
|
p: smallint;
|
|
|
|
begin
|
|
while (n <> 0) do
|
|
begin
|
|
p := m mod n;
|
|
m := n;
|
|
n := p
|
|
end;
|
|
|
|
exit(m)
|
|
end;
|
|
|
|
|
|
begin
|
|
assign(f, 'BAI1.INP');
|
|
reset(f);
|
|
read(f, a, b, c);
|
|
close(f);
|
|
|
|
v := 0;
|
|
for x := 1 to c div a do
|
|
if ((c - a * x) mod b = 0) and
|
|
(gcd(x, (c - a * x) div b) = 1) then
|
|
inc(v);
|
|
|
|
assign(f, 'BAI1.OUT');
|
|
rewrite(f);
|
|
writeln(f, v);
|
|
close(f)
|
|
end.
|