На строке 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.
На строке 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.
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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Ошибка находится в объявлении переменных gr1, i на одной строке. Надо разделить объявление переменных с помощью запятой. Исправленный код будет выглядеть следующим образом:
Program gr;var s: string;
gr1, i: integer;
begin
readln(s);
gr1:=0;
i:=1;
if s[i] in ['1'..'10'] then
begin
gr1:=gr1+1;
i:=i+1;
end;
end.
Теперь код должен корректно отрабатывать без ошибок.