На строке if выдаёт ошибку: ожидался порядковый тип program gr; var s: string; gr1, i: integer; begin readln(s); gr1: =0; i: =1; if s[i] in ['1'..'10'] then begin gr1: =gr+1; i: =i+1; end; end.

'10' - это не символ, а строка, поэтому и ругается.

а еще будет ругаться на gr1: =gr+1; - тут gr не описано.

да и вывода результатов нет.

по формуле включений-исключений

35 = 24 + 18 + 12 - 5 - 10 - 8 + х

х = 4

чтобы понять формулу, надо нарисовать 3 круга которые имеют общую область пересечения

классификации на : числа бывают: натуральными(1,2,3); целыми(2,   -5); дробными(6,73). на : предложения бывают: простыми, сложными: сложноподчинёнными, сложносочинёнными, сложными с разными связи, сложные бессоюзные.