Даны целые числа a,b,n требуется найти количество целых чисел x таких что 0<=x<=n и число a*x при делении на n дает остаток b паскаль пожалуйста помогите скоро олимпиада а я начал почти с нуля ни могу понять как решить
58
ОТВЕТЫ
Учи python он проще и легче pascal
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.
вроде должно работать
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.
вроде должно работать
263
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Kirelnotm
Решите пожалуйста в виде таблицы. Срочноо!!! ...
2019-01-22 12:38:12
Moonflame
При какой температуре ртуть в медицинском термометре станет твёрдой? ...
2019-01-22 12:37:44
Оксана
Составить программу, которая формирует массив из 12 случайных чисел, ...
2019-01-22 12:37:27
Papanazbo
Что это такое? Открыл крышку а там она лежала. ...
2019-01-22 12:37:07