Pascal. Если переменная неравна последовательности чисел.

Question

Как это записать? Т. е. 
if 
a <> 1,2,3,4,5,6... и т. д. 
then 
writeln('Привет'); 
Readln(); 
end.

Валентин · Accepted Answer

Если числа подряд идущие, то так: 
 
if (A < 1) or (A > 6) then 
 
Если числа не обязательно подряд идущие и при 
том находятся в диапазоне от 0 до 255 то можно так: 
 
if Not A in [1..3, 5, 7, 11, 13, 17, 19] then 
 
Если числа не обязательно подряд идущие и вне диапазона от 0 до 255 то можно так: 
 
case A of 
1..3 : begin end; { пустой оператор — ни чего не делаем } 
11..13 : begin end; 
101..103 : begin end; 
1001..1003 : begin end; 
else begin 
… { А вот здесь что-то выполняется } 
end;

Денис · Answer

перебором в цикле. 
в цикле 
проверку на РАВЕНСТВО. если находит хоть одно число меняем какуюту константу. 
 
после цикла проверяем изменилась ли константа и тогда пишем привет или не пишем...

Александр · Answer

Если числа идут подряд от 1 до N, то 
if a<1 or a>N then

Евгений · Answer

if ( a < 1 || a > 6) 
then 
попробуй так.