Паскаль проверка программы. - Компьютерные вопросы

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

Регистрация
5 Авг 2013
Сообщения
91
Репутация
1
Спасибо
0
Монет
0
задание:Дано целое число. Определить: Является ли оно четным; Оканчивается ли оно цифрой 4; Делится ли оно на 6.



моя прога:



var y:integer;

begin

readln(y);

if y mod 2 = 0 then writeln('число четное') else writeln('число нечетное');



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



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

end.



программа на базе 9 класса паскаль.
 
Регистрация
21 Ноя 2013
Сообщения
85
Репутация
0
Спасибо
0
Монет
0
Не нужен тебе паскаль, изучай лучше языки C
 
Регистрация
20 Дек 2013
Сообщения
88
Репутация
0
Спасибо
1
Монет
0
Попробуйте ввести число -14, и результат вас удивит.
Причина в том, что -14 mod 10 = -4.

Для проверки ненулевого остатка есть смысл брать этот остаток или делимое по модулю (функцией abs).
 
Регистрация
23 Авг 2013
Сообщения
81
Репутация
0
Спасибо
0
Монет
0
Все верно. Можно только исключения прописать, например на отрицательные числа и 0, но это уже придирки
 
Сверху Снизу