Задача 1, Pascal.ABC.Netconst sAlpha='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя'; sDigit='0123456789';var c,c1:char;begin Write('Введите символ: '); Readln(c); c1:=LowerCase(c); if Pos(c1,sAlpha)>0 then Writeln('Введена буква ',c) else if Pos(c1,sDigit)>0 then Writeln('Введена цифра ',c) else Writeln('Введен спецсимвол ',c)end.Программирование задачи №2 - большая работа, требующая многих часов, если не имеется готовых наработок для программирования шахматной игры. Давать подобные задачи для решения на данном Сервисе - бесполезное занятие, такое не задают даже на олимпиадах.