Var
c, i, s: real;
begin
s := 0;
c := 50;
while c > 12 do
begin
i := (c / 100) * 20;
c := c - i;
s := s + 1;
end;
write(s);
end.
Противоположные - я выучил информатику / я не выучил информатику (а и не а)
Противоречащие - В сутках 24 часа/Я учил информатику 25 часов в сутки
Да какой угодно цвет(т.к. биты на экране могут составить любой цвет)(это примерный ответ я не уверен точно)