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

Question

Информатика

Алинка

22 мая, 23:56

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

+4

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