Составить программы введите несколько чисел. найдите произведение чисел меньших 7. введите несколько чисел. найдите количество двузначных чисел. введите несколько чисел. определить каких чисел меньше - больше 10 или меньше 10 введите несколько чисел. вывести числа от 12 до 40 кратные 7.

Первая программа var   n, i, x, s : integer;   t : boolean; begin   writeln('количество чисел');   readln(n);   s : = 1;   t : = false;   for i : = 1 to n do     begin       writeln(i,' число');       readln(x);       if x < 7 then         begin           t : = true;           s : = s*x;         end;     end;   if t then     writeln('ответ ',s)   else     writeln('ответ ',0); end.втораяvar  n, i, x, s : integer; begin  writeln('kolichestvo chisel');   readln(n);   s : = 0;   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if (x > = 10) and (x < 99) then        s : = s + 1;     end;   writeln('otvet: ',s); end.третьяvar  n, i, x, s : integer; begin  writeln('kolichestvo chisel');   readln(n);   s : = 0;   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if x > 10 then        s : = s + 1      else if x < 10 then        s : = s - 1;     end;   if s > 0 then        writeln('chisel > 10 bolche')  else if s < 0 then    writeln('chisel < 10 bolche')  else    writeln('chisel porovnu'); end.четвёртаяvar  n, i, x : integer;   st : string; begin  writeln('kolichestvo chisel');   readln(n);   for i : = 1 to n do    begin      writeln(i,' chislo');       readln(x);       if (x > 12)   and (x < 40) and (x mod 7 = 0) then        st : = st + inttostr(x) + ' ';     end;     writeln('otvet: ',st); end.

Var mas: array [1..100, 1..100] of integer;     n, m, i, j, k, ok: integer; begin   write("введите n и m: ");   readln(n, m);   for i: =1 to n do   for j: =1 to m do     read(mas[i,j]);   for i: =1 to n do   for j: =i+1 to n do   begin     ok: =1;     for k: =1 to m do     if mas[i,k]=mas[j,k]     then       begin       ok: =0;       break;       end;     if (ok=1)     then     writeln(i, j: 3);   end; end.

Можно заметить, что на "четной" операции единица сдвигается на одну позицию вперед, т.к. у нас четное кол-во карточек перекладывается на этом ходу и единица написана на левой центральной карточке  на "нечетной" операции единица лежит в центре и она никуда не сдвигается, т.е. за каждые два хода единица двигается на одну позицию вперед для n карточек, единица будет лежать на позиции:   n/2 + 1, если n - четное (n-1)/2 + 1, если n - нечетное для 400 карточек:   400/2 + 1 = 201 ответ: на 201-ой позиции