Нужно проверить выражение (a*x+b*y)/c mod c=0 Выдает ошибку "Операция неприменима к

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

Задать свой вопрос
2 ответа
Операция деления / при вычислении (a*x+b*y)/c дает вещественный итог. В то же время, последующая операция mod работает только с целочисленными типами - отсюда и ошибка.
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.      
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт