на строке 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.
More Questions From This User See All
Answers & Comments
'10' - это не символ, а строка, поэтому и ругается.
А еще будет ругаться на gr1:=gr+1; - тут gr не описано.
Да и вывода результатов нет.