Program Pzim ;
Var N:real;
Var X:real;
Begin
Writeln ('Input a number...');
Readln (N);
X:=N mod 2;
If X=0 then
Begin
If N<0 then
Writeln ('Even and negative number')
else
Writeln ('Even and positive number');
End
Else
Begin
If N<0 then
Writeln ('Odd and negative number')
else
Writeln ('Odd and positive number');
End;
End.
There seems to be a problem on line 7 (X:=N mod 2) I can't figure out what is wrong with this part. Can someone figure it out?
Pic unrelated
mod will only take integers.
>>275841
Thanks!