Даны целые числа a,b,n требуется найти количество целых чисел x таких что 0< =x< =n и число a*x при делении на n дает остаток b паскаль скоро олимпиада а я начал почти с нуля ни могу понять как решить
program n_1: var i,a,b,n,s:integer; begin s:=0; readln(a); readln(b); readln(n); for i:=0 to n do begin if ((a*i) mod n) = b then s:=s+1 end; writeln(s); end.
вроде должно работать
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку