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

Question

Гертруда

29 июля, 08:03

+3

Ответы (1)

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

Доримедонт · Answer 1

Var

x:integer;

begin

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

readln (x) ;

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

end.