Вот дело как раз в том, что а может быть нулем (но не меньше)... Видимо условие придется прописать
Код:
if a>0 then
begin
x := (c - b) div a mod y;
end
else
begin
x := (c - b) mod y;
end;
Правильно? Я просто сейчас с чужого компа и проверить не могу... Мне видимо неверно подсказали что сначало нужно сделать так: a^-1 mod y = a^y-1 mod y... а это возведение в степень 255 (исходя из того, что начальное значение у 256)... Вот я и заморочился с возведением в большую степень...