На строке 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.
что должна сделать эта программа?
s[i] хранит только один символ.Если нужно посчитать цифры в строке то: if s[i] in ['0'..'9'] then
'10' - это не символ, а строка, поэтому и ругается.
А еще будет ругаться на gr1:=gr+1; - тут gr не описано.
Да и вывода результатов нет.