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

125

278

Посмотреть ответы 2

Ответы на вопрос:

aigultlegenova

Информатика

4,4(83 оценок)

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

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

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

katy0987

Информатика

4,8(41 оценок)

исходя из этого кода, цикл будет выполняться 9 раз.

первая итерация будет начинаться с 0, последняя будет заканчиваться 8.

эта информация актуальная для языка object pascal, он не регистрозависимый.

150 000+ пользователей

Оформить подписку