Множества

[Antonio_getscool]

Вычислить [1,3,5]+[2,4]

[Stilet]

А что в методичке написано?

[Antonio_getscool]

Составь программу плиз

[Kostia]

var
  A: set of byte;
  i: byte;
begin
  A:=[1,3,5]+[2,4];
  for i:=0 to 255 do
    if i in A then write(i,' ');
end.

PS: мда, на дискретке мы программировали гораздо сложней задачи...