Найдите отсутствующего Однажды на дистанционном уроке, проводимом при какого-то сервиса видеоконференций, учитель заметил, что отсутствует один из N учащихся класса. Чтобы понять, кто именно отсутствует, учитель попросил каждого присутствующего ученика написать в чат его номер в классном журнале: число от 1 до N. Тогда после окончания урока, просмотрев сохранённый чат, учитель сможет понять, какой из учеников не написал свой номер ему — напишите программу, которая сделает это.
Входные данные
В первой строке входных данных записано целое число N (1 ≤ N ≤ 105) — количество учеников в классе. Следующие N − 1 строк содержат по одному числу — номера присутствовавших на уроке учеников в произвольном порядке. Среди этих чисел каждое число от 1 до N, кроме какого-то одного, встречается ровно один раз.
Выходные данные
Программа должна вывести одно число — номер отсутствовавшего ученика.
Система оценивания
Решения, правильно работающие, когда N ≤ 100, будут оцениваться в
Пример
Ввод
5
2
5
1
3
Вывод
4
var
a,b:string;
i:integer;
begin
readln(a);
readln(b);
For i:=1 to Length(a) do
begin
if (a[i]='3') then
Begin
Delete(a,i,1);
InSert('e',a,i);
End;
if (a[i]='0') then
Begin
Delete(a,i,1);
InSert('o',a,i);
End;
if (a[i]='1') then
Begin
Delete(a,i,1);
InSert('i',a,i);
End;
if (a[i]='7') then
Begin
Delete(a,i,1);
InSert('t',a,i);
End;
if (a[i]='4') then
Begin
Delete(a,i,1);
InSert('a',a,i);
End;
if (a[i]='5') then
Begin
Delete(a,i,1);
InSert('s',a,i);
End;
end;
if b in a then
writeln('YES')
else
writeln('NO')
end.
// Форматирование вывода вещественного числа можно поставить как нравится, я выбрал 3:3
// Считал, что доля с участием нуля равна 0%
program Calc;
var a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
writeln(a, '+', b, '=', a + b);
writeln(a, '-', b, '=', a - b);
writeln(a, '*', b, '=', a * b);
if (b = 0) then begin
writeln(a, '/', b, ' не определено');
writeln(a, ' составляет 0% от числа ', b);
end
else begin
writeln(a, '/', b, '=', (a / b):3:3);
writeln(a, ' составляет ', (a / b * 100):3:3, '% от числа ', b);
end;
if (a = 0) then
writeln(b, ' составляет 0% от числа ', a)
else
writeln(b, ' составляет ', (b / a * 100):3:3, '% от числа ', a);
end.