Задачи...Паскаль

[Silena]

Программситы,Помогите решить задачи в Паскале):
ТЕМА:строковые данные:описание,обработка.
1. Даны две цепочки символов. Вставить вторую цепочку в первую после третьего символа.
2. Дана цепочка символов вида "число1/число2-число3". Вычислить числовое значение выражения и напечатать.
3. Задан массив из восьми строк. В каждой строке "фамилия
школьника_оценка за олимпиадную работу_N школы". Отсортировать по
убыванию балла, распечатать. Распечатать отдельно фамилии отличнииков.

[-=<[Evklidd]>=-]

Стучись в асю 472185524 (даже в офф) - все реализуем

[TheChosenOne]

Вот нелёгкая задача, кто может помогите плз...


Задача - Игра.
На листке записано в одну строку N (2<=n100) целых положительных чисел, числа не превышают 200. Играют дове. За каждый ход можно зачеркивать крайнее число либо слева, либо справа. Зачеркнутое число добавляется к очкам игрока. N – четное.
Необходимо вывести максимально возможную сумму очков первого игорока при условии, что противник играет наилучшим образом.

Формат входного файла
В первой строке входного файла содержится одно целое число N(2<=N<=100). В следующих N строках записан исходный ряд числе, по одному числу в строке.

Формат выходного файла
Выходной файл должен содержать единственное число – максимально возможную сумму очков для первого игрока при наилучшей игре второго игрока.

[Foky]

Первая задача вроде так:
uses crt;
var
s1,s2:string;
i:integer;
begin
clrscr;
writeln('vvedite pervyu strocu');
readln(s1);
writeln('vvedite vtoryu strosu');
readln(s2);
insert(s2,s1,4);
writeln(s1);
end.

[Silena]

Сообщение от Foky

Первая задача вроде так:
uses crt;
var
s1,s2:string;
i:integer;
begin
clrscr;
writeln('vvedite pervyu strocu');
readln(s1);
writeln('vvedite vtoryu strosu');
readln(s2);
insert(s2,s1,4);
writeln(s1);
end.

спасибо за задачу

[Plague]

Задача - Игра.
На листке записано в одну строку N (2<=n100) целых положительных чисел, числа не превышают 200. Играют дове. За каждый ход можно зачеркивать крайнее число либо слева, либо справа. Зачеркнутое число добавляется к очкам игрока. N – четное.
Необходимо вывести максимально возможную сумму очков первого игорока при условии, что противник играет наилучшим образом.

Решение:

var m:array [1..100] of byte;
    n,i,j,k:byte;
    sum1,sum2:longint;
begin
  write('n : ');readln(n);
  randomize;
  for i:=1 to n do
    begin
      m[i]:=random(200)+1;
      write(m[i]:4);
    end;
    writeln;

  sum1:=0;
  sum2:=0;
  i:=1;
  j:=n;
  k:=1;
  repeat

    if (m[i]>m[j]) then
      begin
        case k mod 2 of
          0: inc(sum2,m[i]);
          1: inc(sum1,m[i]);
        end;
        inc(i);
      end
    else
      begin
        case k mod 2 of
          0: inc(sum2,m[j]);
          1: inc(sum1,m[j]);
        end;
        dec(j);
      end;
    inc(k);
 until (j-i)=-1;
 writeln('sum1 = ',sum1);
 writeln('sum2 = ',sum2);
end.

З.Ы. требуется дополнительного тестирования, т.к. мало тестировал.

[Колян]

Помогите мне с задачей по системам счисления!
Нужна задачка, чтоб переводила число из одной системы в др!
и второй способ, это через mod и div!
Плиз помогити!