1. Ввести с клавиатуры целое число. Если число четное и отрицательное, то вывести **...

+783 голосов
4.4m просмотров

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


Информатика (103 баллов) | 4.4m просмотров
+61

Какой ЯП

+48

PASCAL

Дан 1 ответ
+171 голосов

Ответ:

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.

(451 баллов)