Я написал програмку (довольно простую), а она не работает
Я разместил её в этот раздел потому что она теоритическая (а не практическая) и должна помоч понять роботу с множествами.
type
q110 = set of 1..10;
q515 = set of 5..15;
i = set of 1..150;
VAR
a1a10 : q110;
a5a15 : q515;
res : i;
w:integer;
BEGIN
a1a10 := [1..10];
a5a15 := [5..15];
res := a1a10 + a5a15;
for w := 0 to 150 do
if w in res then WriteLn( i );
END.
! | В следующий раз пост без тегов удалю! |
Сообщение отредактировано: Altair -