Написать программы для решения следующих задач: 1. С клавиатуры вводится целое число N. Определить, является ли это число N двузначным. Вывести соответствующие сообщения. Например: если введено число 5, то программа должна вывести на экран сообщение «Число не двузначное», а если будет введено число 45, то программа должна вывести на экран сообщение «Число двузначное». 2. С клавиатуры вводится произвольное число. Если это число – положительное, то найти значение квадратного корня из этого числа, а если – отрицательное, то вычислить модуль. Результаты вывести на экран с подсказками, каждый результат – с новой строки. 3. Клавиатуры вводятся координаты точки на плоскости – X и Y. Составить программу, которая определяет, в какой координатной четверти находится точка. Например: если с клавиатуры введены координаты х=5, у=6, то точка лежит в 1 координатной четверти, т.к. обе координаты – положительные.​

1. Переведем 271 из 8-ой в 10-ую = 2*8^2 + 7*8^1 + 1 = 128 + 56 + 1 = 185.
Переведем 11110100 из 2-ой в 10-ую = 2^7 + 2^6 + 2^5 + 2^4 + 2^2 = 128 + 64 + 32 + 16 + 4 = 244.
185 + 244 = 429. В 16: 429/16 = 26 (ост: 13 = D); 26 / 16 = 1 (ост 10 = A). 
ответ: 1AD. 

2. 19 из 10-ой переведём в 6-ую = 31. Также переведём 33 из 10-ой в 6-ую = 53.
Перечислим все наборы:
33 34 35 40 41 42 43 44 45 50 51 52 53. 
Считаем тройки и получаем их количество - 6. 

3. 49[10cc] = 100[x cc]. Распишем 100 и получим = 1*x^2 + 0*x^1 + 0*x^0 = x^2. => 49 = x^2; x = 7.
ответ: 7. 

4. Переведём число 30 из 10-ой в 4-ую СС и получим: 132. Нам надо найти числа, которые оканчиваются на 31. Значит все последующие разряды будут x. x31 < 132. Если x = 0, то будет следующее число 031, оно меньше 132 и значит подходит. Если x = 1, то будет число 131 и оно также подходит. Все последующие число не подходят, поэтому ответ только два числа. 

5. Долго делать это, чем смог

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.