Лови)..................................................
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.
<span>Полифаги самые лучшие, так как они не только находят и блокируют вирусы, но еще и лечат =)</span>
Операция целочисленного деления, div - целая часть, mod - остаток от деления
Результат 5