Помогите пожалуйста написать или на рисовать алгоритм проверки числа на четность

Madina в категроии Информатика, вопрос открыт 06.04.2017 в 20:05

1 ответ

Оксана , ответ добавлен 06.04.2017 в 20:16

Var
i:integer;

begin
writeln('Введите число');
readln(i);
if ((i mod 2)<>0) then
     writeln('Число нечетное')
else
     writeln('Число четное');
end.

 0   

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или  авторизируйтесь на сайте чтобы оставить ответ на вопрос.