Определите,является ли данное число четным или нечетным ( написать в pascal )

Question

Определите,является ли данное число четным или нечетным ( написать в pascal )

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var n:integer; begin writeln('задайте целое число'); readln(n); if odd(n) then writeln('нечетное') else writeln('четное'); readln end. можно через такой код if n mod 2=0 then write('Четное') else write('Нечетное');