В такой программе, пишет что "=" не применимо к integer ...

var n, a, k: integer;

begin

readln (n, a);

if (n+a) mod 2=0 or (n+a) mod 2=1

then writeln (k - (k div n) * n)

end.

Question

Информатика

Назар

11 июля, 10:54

В такой программе, пишет что "=" не применимо к integer ...

var n, a, k: integer;

begin

readln (n, a);

if (n+a) mod 2=0 or (n+a) mod 2=1

then writeln (k - (k div n) * n)

end.

+4

Ответы (2)

Знаешь ответ?

Белла · Answer 1

У тебя еще переменная "к" не реализована, а ты ее используешь - это еще 1 ошибка

Фридерика · Answer 2

Паскаль требует каждое логическое выражение выделять в " () ", поэтому нужно написать

if ((n+a) mod 2 = 0) or ((n+a) mod 2 = 1)

и будет тебе счастье

В такой программе, пишет что "=" не применимо к integer ...var n, a, k: integer;beginreadln (n, a);if (n+a) mod 2=0 or (n+a) mod 2=1then writeln (k - (k div n) * n)end.

В такой программе, пишет что "=" не применимо к integer ...

var n, a, k: integer;

begin

readln (n, a);

if (n+a) mod 2=0 or (n+a) mod 2=1

then writeln (k - (k div n) * n)

end.