Необходимо проверить выражение (a*x+b*y)/c mod c=0
Выдает ошибку \"Операция неприменима к операндам этого типа\"
В чем дело? Пальскаль АВС, тип real
Ответ
0 (0 оценок)
1
king20000924 6 лет назад
Светило науки - 1 ответ - 0 раз оказано помощи
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.      
Ответ проверен экспертом
0 (0 оценок)
0
triolana 6 лет назад
Светило науки - 566492 ответа - 388270 раз оказано помощи
Операция деления / при вычислении (a*x+b*y)/c дает вещественный результат. В то же время, следующая операция mod работает только с целочисленными типами - отсюда и ошибка.

Остались вопросы?