Вопрос Паскаль проверка программы.

[JIexa]

задание:Дано целое число. Определить: Является ли оно четным; Оканчивается ли оно цифрой 4; Делится ли оно на 6.



моя прога:



var y:integer;

begin

readln;

if y mod 2 = 0 then writeln('число четное&#39 else writeln('число нечетное'



if y mod 10 = 4 then writeln('число заканчивается на 4&#39 else writeln('число не заканчивается на 4'



if y mod 6 = 0 then writeln('число делится на 6&#39 else writeln('число не делится на 6&#39

end.



программа на базе 9 класса паскаль.

 

[SlawNo]

Не нужен тебе паскаль, изучай лучше языки C

 

[ogocamoon]

/

 

[Senya]

Попробуйте ввести число -14, и результат вас удивит.
Причина в том, что -14 mod 10 = -4.

Для проверки ненулевого остатка есть смысл брать этот остаток или делимое по модулю (функцией abs).

 

[zeppo]

Все верно. Можно только исключения прописать, например на отрицательные числа и 0, но это уже придирки