Question

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

Answer 1

Program zadacha;
var
a:integer;
g:boolean;
begin
read(a);
if g=(odd(a)) then
write('Нет')
else
write('Да');
end.

Answer 2

var a: integer;

begin

  readln(a);

  if a mod 2=1 then writeln('Да')

  else writeln('Нет');

end.