Pascal ABC
__________
Var
a,b,n:integer;
Begin
Readln(n);
While (a<>n) or (b<>n) do begin
Read(a);
if a=n then write('1') else begin
Read(b);
if b=n then write('2');
end;
end;
end.
1.2бита,50 байтов, 512битов, 500байтов,0.5килобайт 2 а) , вроде так остальное ваще хз
354
235, 15
472, 35
417, 165
317, 35