На строке 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.

zhorik2006nice    1   27.09.2019 02:50    0