1. Ввести с клавиатуры целое число. Если число четное и отрицательное, то вывести на экран фразу "Да", иначе вывести «Нет» PASCAL
Какой ЯП
PASCAL
Ответ:
program Program1;
var number,n:integer;
begin
writeln ('Введи число');
readln (number);
n := abs(number) mod 2;
if (number < 0) and (n = 0)
then writeln('Да')
else writeln('Нет');
end.