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

Question

Информатика

Ванюха

Вчера, 15:27

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

+2

Ответы (1)

Знаете ответ на вопрос?

Андроник · Answer 1

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 ('Нечетное') ;