Составьте программу, которая определяет, является ли введенное целое число нечетным, и выводит на экран соответствующее сообщение:"Да" либо "Нет".

Question

Азарий

20 января, 13:57

+5

Ответы (1)

Знаете ответ?

Светлана · Answer 1

Var

x:integer;

begin

write ('Введите число: ') ;

readln (x) ;

if x mod 2=1 then writeln ('Да') else writeln ('Нет') ;

end.