2. 19 из 10-ой переведём в 6-ую = 31. Также переведём 33 из 10-ой в 6-ую = 53. Перечислим все наборы: 33 34 35 40 41 42 43 44 45 50 51 52 53. Считаем тройки и получаем их количество - 6.
4. Переведём число 30 из 10-ой в 4-ую СС и получим: 132. Нам надо найти числа, которые оканчиваются на 31. Значит все последующие разряды будут x. x31 < 132. Если x = 0, то будет следующее число 031, оно меньше 132 и значит подходит. Если x = 1, то будет число 131 и оно также подходит. Все последующие число не подходят, поэтому ответ только два числа.
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.
Ну и конечно, ни один уважающий себя компилятор, таких действий не позволит.