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

Question

Информатика

Алинка

28 декабря, 00: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 ('Нечетное') ;