Program one;
var: a: real;
begin
Writeln ('Введите число');
readln (a);
If a<0 then else a:=a+1 else writeln (a)
end.
Вроде так
Номера 1 и 4.
Маски имеют вид 255.255.255.0, значит под хост выделен последний байт маски, а первые три байта - под адрес сети.
Первые три байта у 1 и 4 IP-адресов одинаковые, значит адрес сети тоже один.
Var a, x: longint;
begin
readln (a);
x:=-a;
writeln ('x1=0');
writeln ('x2=',x);
end.
Не совсем красиво но вроде как правильно. Добавлю пояснение(схема)
<span>(х>2) или не (x>1)
x=1
</span>(1>2) или не (1>1) ⇒ ложь или не ложь ⇒ ложь или истина ⇒ истина
x=2
(2>2) или не (2>1) ⇒ ложь или не истина ⇒ ложь или ложь ⇒ ложь
x=3
(3>2) или не (3>1) ⇒ истина или не истина ⇒ истина или ложь ⇒ истина
x=4
(4>2) или не (4>1) <span>⇒ истина или не истина ⇒ истина или ложь ⇒ истина
</span>Ответ: 2) 2