на строке if выдаёт ошибку: ожидался порядковый типProgram gr;var s: string;gr1,

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

Кумеркова Таня 2019-03-28 12:02:57

что обязана сделать эта программка?

Света Пятова 2019-03-28 12:09:11

s[i] бережёт только один знак.Если необходимо посчитать числа в строке то: if s[i] in ['0'..'9'] then