Если друзья могут пройти все уровни вместе, выведите «I become the guy.»

@Derzky · Регистрация: 01.12.2015

Помогите решить задачу:
Есть такая игра под названием «I Wanna Be the Guy», в ней n уровней. Little X и его друг Little Y подсели на эту игру. Каждый из них хочет пройти игру полностью.
Little X может пройти только p уровней этой игры. А Little Y может пройти только q уровней этой игры. Вам даны номера уровней, которые может пройти Little X, и номера уровней, которые может пройти Little Y. Могут ли Little X и Little Y пройти игру полностью, если объединят свои усилия?

Входные данные
В первой строке записано единственное целое число n (1 ≤ n ≤ 100).
В следующей строке сначала записано целое число p (0 ≤ p ≤ n), затем следуют p различных целых чисел a1, a2, ..., ap (1 ≤ ai ≤ n). Эти числа обозначают номера уровней, которые может пройти Little X. В следующей строке содержатся номера уровней, которые может пройти Little Y, в аналогичном формате. Предполагается, что уровни пронумерованы от 1 до n.

Выходные данные
Если друзья могут пройти все уровни вместе, выведите «I become the guy.». Если это невозможно, выведите «Oh, my keyboard!» (без кавычек).

Примеры тестов
входные данные
4
3 1 2 3
2 2 4
выходные данные
I become the guy.
входные данные
4
3 1 2 3
2 2 3
выходные данные
Oh, my keyboard!
Примечание
В первом примере Little X может пройти уровни [1 2 3], а Little Y может пройти уровни [2 4], так что вместе ребята могут пройти все уровни.

Во втором примере никто не может пройти уровень 4.

@Pent · 02.01.2016, 19:22

Pascal

const N = 20;
var
  p, q, i : byte;
pS, qS, S : set of byte;
type Tset = set of byte;
 procedure MakeLv(ai : byte; var aset : Tset);
  var k, l, i : byte;
   begin
    l:=0;
    aset:=[];
       While l<ai do
        begin
         k:=Random(N+1);
         if not (k in aset) then
         begin
         aset:=aset + [k]; l:=l+1;
         end;
         if k=0 then begin aset:=aset - [k]; l:=l-1; end;
        end;
   end;
  begin
   Randomize;
   S:=[];
   p:=Random(N + 1);
   q:=Random(N + 1);
   Writeln(N);
   Write(p, ' ');
   MakeLv(p, pS);
     for i:=1 to N do if i in pS then Write(i, ' ');Writeln;
   Write(q, ' ');
   MakeLv(q, qS);
    for i:=1 to N do if i in qS then Write(i, ' ');
     S:=[1..N];
     if S - pS - qS = [] then Writeln('I become the guy.')
     else Write('Oh, my keyboard!');
     Readln
end.

@Derzky · 02.01.2016, 19:35 **[ТС]**

Pent, можешь помочь ,чтобы переделать под ввод с клавиатуры?

@Pent · 02.01.2016, 19:57

Сообщение от Pent

p:=Random(N + 1); q:=Random(N + 1);

вместо этого попробуй Write('Введите число уровней, которые может пройти LittleX'); Readln(p) и так же с LittleY будет q

@Derzky · 02.01.2016, 20:14 **[ТС]**

Pent,

Pascal

1	k:=Random(N+1);

а это?
Ты сам код делал? ТАм мало этого поменять

@Pent · 02.01.2016, 20:40

ты хочешь и число уровней и номера уровней вводить с клавы?

@Derzky · 02.01.2016, 21:32 **[ТС]**

Pent, да

@Pent · 03.01.2016, 08:09

Через ввод не получается сделать. То ли после НГ голова еще не отошла, то ли не хватает знаний (сам только недавно начал учить Паскаль). Может кто-то поможет еще

@Puporev · 03.01.2016, 08:50

Pascal

var n,p,q,a,i:byte;
    s,ps,qs:set of byte;
begin
read(n);
s:=[1..n];
read(p);
ps:=[];
for i:=1 to p do
 begin
  read(a);
  ps:=ps+[a];
 end;
read(q);
qs:=[];
for i:=1 to q do
 begin
  read(a);
  qs:=qs+[a];
 end;
if s-ps-qs=[] then Writeln('I become the guy.')
else Write('Oh, my keyboard!');
end.

Добавлено через 1 минуту
Задача похоже с проверочного сайта, там вводятся корректные данные.

@Derzky 0 / 0 / 0 Регистрация: 01.12.2015 Сообщений: 120
		1
	Если друзья могут пройти все уровни вместе, выведите «I become the guy.» 30.12.2015, 11:50. Просмотров 1425. Ответов 8 Метки нет (Все метки) Помогите решить задачу: Есть такая игра под названием «I Wanna Be the Guy», в ней n уровней. Little X и его друг Little Y подсели на эту игру. Каждый из них хочет пройти игру полностью. Little X может пройти только p уровней этой игры. А Little Y может пройти только q уровней этой игры. Вам даны номера уровней, которые может пройти Little X, и номера уровней, которые может пройти Little Y. Могут ли Little X и Little Y пройти игру полностью, если объединят свои усилия? Входные данные В первой строке записано единственное целое число n (1 ≤ n ≤ 100). В следующей строке сначала записано целое число p (0 ≤ p ≤ n), затем следуют p различных целых чисел a1, a2, ..., ap (1 ≤ ai ≤ n). Эти числа обозначают номера уровней, которые может пройти Little X. В следующей строке содержатся номера уровней, которые может пройти Little Y, в аналогичном формате. Предполагается, что уровни пронумерованы от 1 до n. Выходные данные Если друзья могут пройти все уровни вместе, выведите «I become the guy.». Если это невозможно, выведите «Oh, my keyboard!» (без кавычек). Примеры тестов входные данные 4 3 1 2 3 2 2 4 выходные данные I become the guy. входные данные 4 3 1 2 3 2 2 3 выходные данные Oh, my keyboard! Примечание В первом примере Little X может пройти уровни [1 2 3], а Little Y может пройти уровни [2 4], так что вместе ребята могут пройти все уровни. Во втором примере никто не может пройти уровень 4. 0

@Derzky 0 / 0 / 0 Регистрация: 01.12.2015 Сообщений: 120
	02.01.2016, 19:35 [ТС]	3
	Pent, можешь помочь ,чтобы переделать под ввод с клавиатуры? 0

@Pent 8 / 3 / 4 Регистрация: 04.10.2015 Сообщений: 16
	02.01.2016, 19:57	4
	Сообщение от Pent p:=Random(N + 1); q:=Random(N + 1); вместо этого попробуй Write('Введите число уровней, которые может пройти LittleX'); Readln(p) и так же с LittleY будет q 0

@Pent 8 / 3 / 4 Регистрация: 04.10.2015 Сообщений: 16
	02.01.2016, 20:40	6
	ты хочешь и число уровней и номера уровней вводить с клавы? 0

@Derzky 0 / 0 / 0 Регистрация: 01.12.2015 Сообщений: 120
	02.01.2016, 21:32 [ТС]	7
	Pent, да 0

@Pent 8 / 3 / 4 Регистрация: 04.10.2015 Сообщений: 16
	03.01.2016, 08:09	8
	Через ввод не получается сделать. То ли после НГ голова еще не отошла, то ли не хватает знаний (сам только недавно начал учить Паскаль). Может кто-то поможет еще 0

Опции темы

Если друзья могут пройти все уровни вместе, выведите «I become the guy.»

Решение