Тема 12: Множества

Варианты ответа

¶ooиии
¶oи
ooиии
oи
oии
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

var sc: set of char; ss:string;
i: integer;
begin
 sc:= ['а','е','и','о','у','э','ю','я'];
 ss:='крокодильчики';
 for i:=0 to length(ss) do
   if ss[i] in sc then write(ss[i]);
 readln;
end.

Варианты ответа

13 15
13 14
24 26
24 25
23 24
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку при компиляции

var sb: set of byte;
i,s: integer;
begin
 sb:= [1,4..7,11]*[5..10]; s:=0;
 for i:= 6 to 12 do
   if i in sb then
     begin inc(s,i); if i mod 4 = 0
       then sb:=sb + [i];
     end; write(s:3);
 for i:= 6 to 12 do
   if i in sb then inc(s); write(s:3);
  readln;
end.

Варианты ответа

6 6
7 7
8 7
6 7
7 6
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

var sb: set of byte;
i,sm1,sm2: integer;
begin
 sb:= [2..5,8]; sm1:=0; sm2:=sm1;
 for i:= 2 to 9 do
   if (([2..5,8] + [3..6]) >= sb) then
     begin inc(sm1); sb:=sb +[i]; end;
 for i:=1 to 10 do if i in sb then inc(sm2);
 write(sm1:4,sm2:4); readln;
end.

Варианты ответа

7,4
7 6
6 4
6 0
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
7 4

var sc,s1,s2: set of char;
i,sm1,sm2: integer;
begin
 sc:= ['a'..'f','A']; s1:=sc + ['1'..'8'];
 s2:= s1 - ['F'..'a']; 
 s1:= s2*['a','b','3'..'6']; sm1:=0;
 sm2:=sm1;  for i:= 32 to 127 do
   if char(i) in sc then inc(sm1) else
   if char(i) in s1 then inc(sm2);
 write(sm1:4,sm2:4); readln;
end.

Варианты ответа

5 3 3
5,3,3
5 3 4
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
5 3 5
5 4 5

var s1,s2,s3: set of byte;
i,sm1,sm2,sm3: integer;
begin
 s1:= [2..6]; s2:=[8..9,11];
 s3:= [1..5,254..255]; sm1:=0;{..256}
sm2:=sm1; sm3:=sm1;
 for i:= 0 to 256 do { to 256}
   if i in s1 then inc(sm1) else
   if i in s2 then inc(sm2) else
   if i in s3 then inc(sm3);
 write(sm1:4,sm2:4,sm3:4); readln;
end.