Question

1. Ввести с клавиатуры целое число. Если число четное и отрицательное, то вывести на экран фразу "Да", иначе вывести «Нет»
PASCAL

Answer 1

Ответ:

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.