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

Question

Информатика

Ванюха

28 апреля, 18:59

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

+5

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