Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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