Решить на паскале или питоне, или .хотя бы алгоритм : для настольной игры используются карточки с номерами от 1 до n. одна карточка потерялась. найдите ее, зная номера оставшихся карточек. входные данные: дано число n, далее n-1 номер оставшихся карточек (различные числа от 1 до n

Var n, tmp, sum, i: integer; begin      readln(n);       sum : = (n * (n + 1)) div 2;       for i : = 1 to n - 1 do      begin          read(tmp);           sum : = sum - tmp;       end;       writeln(sum); end.

отдел +;

использует из "";

пер

  массив_чисел: ряд 100 из цел;

  сч, мин, ном: цел;

указ

  от сч : = 0 до размер(массив_чисел) - 1 вып

    массив_чисел[сч] : = - узк(вширцел(.случ() * 1000))

  кон;

  мин : = массив_чисел[0]; ном : = 0;

  от сч : = 1 до размер(массив_чисел) - 1 вып

    если массив_чисел[сч] < мин то

      мин : = массив_чисел[сч]; ном : = сч

    кон

  кон

  (* мин - минимальное значение, ном - его номер *)

кон .

обрати внимание на то, что считается фактическое минимальное значение, а не минимальный модуль.

Program kvur; var a,b,c,d: real; begin writeln('решение квадратного уравнения(ax^2+bx+c=0).'); write('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d: =sqr(b)-4*a*c; writeln('вы ввели: '); writeln('a= ',a); writeln('b= ',b); writeln('c= ',c); writeln('d=b*b-4*a*c=',d); if (d> 0) then begin writeln('d> 0 => уравнение имеет 2 действительных различных корня '); writeln('x1= '+sqrt(d))/(2*a)); writeln('x2= '-sqrt(d))/2*a); end else if (d=0) then begin writeln('d=0 => уравнение имеет 2 корня'); writeln('x1=x2=',-b/(2*a)); end else writeln('d< 0 => уравнение не имеет действительных корней'); end.