В некоторой игре используются карточки с номерами от 1 до N. На вход программе сначала подаётся число N, не превосходящее

Первый вариант Pascal:varn,i,x: Longint;beginWrite(\'Введите n: \'); Read(n);Write(\'Введите числа: \');for i:=1 to n-1 do beginRead(x); n:=n xor x;end;if n<>0 then WriteLn(n) else WriteLn(\'Некорректный ввод\');end.Второй вариант:varn,i,x: Longint;beginWrite(\'Введите n: \'); Read(n);Write(\'Введите пропущенное число: \'); ReadLn(x);for i:=1 to n doif i<>x then n:=n xor i;if n<>0 then WriteLn(n) else WriteLn(\'Некорректный ввод\');end.Третий вариант:varn, s, i, x :longint;beginread(n);s := n;for i := 1 to n - 1 dobeginread(x);s := s xor x xor i;end;writeln(s);end.