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

Program strok; uses crt; const number=['0','1','2','3','4','5','6','7','8','9']; var a: array[1..10] of string; i,j,k: integer; s: string; begin {ввод элементов массива} for i: =1 to 10 do  begin write('введите ',i,' элемент массива:   '); readln(a[i]) end; {проверка условий} for i: =1 to 10 do {перебираем элементы массива} begin k: =0; {задаем триггер}   s: =a[i]; for j: =length(s) div 2+1 to length(s) do if s[j] in number then k: =1; {pascal позволяет обращаться со строковыми переменными, как с массивами символов, проверяем строку со второй половины на "вшивость", и, если встретилась цифра, вызываем срабатывание тригера} if k=0 then writeln(s) end; readln end.

Var a,s,mn: real;     n,i: integer; begin clrscr; repeat write('сколько чисел ввести n> 0 n='); readln(n); until n> 0; writeln('введите ',n,' чисел: '); s: =0; for i: =1 to n do   begin   write('a=');   readln(a);   if i=1 then mn: =a   else if odd(i)and(a< mn) then mn: =a;   if(i mod 2=0)and(a> 0) then s: =s+a;   end; writeln('сумма положительных с четными индексами=',s: 0: 2); writeln('минимальный с нечетным индексом=',mn: 0: 2); readln end.

Допустим что 1 игрок увеличит 1 кучку в 3 раза =9 во 2 кучке 2. 2 игрок тоже увеличит в 3 раза 1 кучку получится в 1- 27 во 2- 2. 1 игрок увеличит 2 кучку в 3 раза получится 6, а в сумме получится 33.

ответ: выйграет тот игрок который сделает ход первым. Это 1 вариант.

Допустим что 1 игрок увеличит 1 кучку в 3 раза =9 во 2 кучке 2. 2 игрок увеличит 2 кучку и получит 6 теперь в 1-9 во 2-6                                 1 игрок увеличит 1 кучку и получит В 1-27 во 2-6    

ответ: выйграет тот игрок который сделает ход первым. Это 2 вариант.