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

Pro1008700 Pro1008700    1   14.05.2020 13:09    4

Ответы
Dasha20qu Dasha20qu  14.10.2020 18:26

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика