Question

Необходимо проверить выражение (a*x+b*y)/c mod c=0
Выдает ошибку "Операция неприменима к операндам этого типа"
В чем дело? Пальскаль АВС, тип real

Answer 1

Операция деления / при вычислении (a*x+b*y)/c дает вещественный результат. В то же время, следующая операция mod работает только с целочисленными типами - отсюда и ошибка.

Answer 2

var   a,b,c,x,y,s:integer;begin   read(a,b,c);   s:=0;   for x:=0 to c-1 do      for y:=0 to c-1 do      If ((a*x+b*y) mod c) =0      then s:=s+1;      write(s)end.