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

Question

Кирх

5 марта, 11:02

+5

Ответы (1)

Знаете ответ на вопрос?

Гемма · Answer 1

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

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

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

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