Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
x:integer;
begin
write(Введите число: );
readln(x);
if x mod 2=1 then writeln(Да) else writeln(Нет);
end.