множественные типы данных

[Миша_misha]

упростите(a,b,c-множества)
(a-b+c)+(b-a-c)+a*b-c



program ww;
type number=set of 0..20;
const
a:number=[2..8];
b:number=[1..6];
c:number=[7..19];
var
answer:number;
begin
answer:= (a-b+c)+(b-a-c)+a*b-c;
writeln('îòâåò: 'answer);
end.




а вот то что я написал,по-моему должно выходить....а он не работает даже..

[Serge_Bliznykov]

ну, в принципе вы написали то, что хотели.

единственное, множественный тип данных не допускает прямого ввода и вывода.
для того, чтобы вывести на экран содержимое множества, допустим только один способ - перебрать все возможные элементы (из допустимого диапазона) и для каждого проверять, входит ли он в выводимое множество. Если входит - печатать этот элемент.

примерно так:

program ww;
type number=set of 0..20;
const
  a:number=[2..8];
  b:number=[1..6];
  c:number=[7..19];
var
  answer:number;
  i : byte;
begin
  answer:= (a-b+c)+(b-a-c)+a*b-c;

  Write('Ответ: ');
  for i:=0 to 20 do
    if i in answer then Write(i:3);
  WriteLn;
  Readln
end.

p.s. достоверность собственно расчётов не проверял, это выше моего понимания