Question

Для настольной игры используются карточки с номерами от 1 до N. Одна карточка потерялась. Найдите ее, зная номера оставшихся карточек. Входные данные Дано число N, далее N-1 номер оставшихся карточек (различные числа от 1 до N). Выходные данные Программа должна вывести номер потерянной карточки.

Answer 1

Var n,i,k,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n; s2:=0;
for i:=1 to n-1 do
 begin
 write('k',i,'='); readln(k);
 s1:=s1+i; s2:=s2+k;
 end;
writeln('Потерялась карточка ',s1-s2);
end.

Пример:
n=5
k1=1
k2=3
k3=4
k4=5
Потерялась карточка 2