Question

Даны целые числа a,b и n.Требуется найти количество целых x таких, что 0<=х

Answer 1

Program
tapsirmaC;
var
a,b,n,x,p:integer;
 input,output:text;
begin
p:=0;
assign(input,'c.in');
assign(output,'c.out');
reset(input);
rewrite(output);
read(input,a,b,n);
for x:= 1 to n do
begin
if a*x mod n = b
then  
p:=p+1;
end;
write(output,p);
close(input); 
close(output); 
end.

Answer 2

Program  tapsirmaC;var  a,b,n,x,p:integer; input,output:text;beginp:=0;assign(input,'c.in');assign(output,'c.out');reset(input);rewrite(output);read(input,a,b,n);for x:= 1 to n dobeginif a*x mod n = b  then  p:=p+1;end; write(output,p);close(input); close(output); end.