Вопрос, который вызвал трудности

Программу из примера 19.10 изменили. Сформулируйте задачу, которая решается с помощью данной программы. var i,k,n,z: integer; begin write(ꞌВведите n = ꞌ); read(n); write(ꞌВведите i = ꞌ); read(i); k:=0; while n > 0 do begin z : = n mod 10; //Текущая цифра k : = k + 1; if k = i then writeln(ꞌВ разряде ꞌ, i, ꞌ стоит цифра ꞌ, z); N : = n div 10; //Уменьшение числа в 10 раз end; if i > k then writeln(ꞌВ числе ꞌ, k, ꞌ цифр, в разряде ꞌ, i, ꞌ нет цифрꞌ) else writeln(ꞌВ числе ꞌ, k, ꞌ цифрꞌ); end.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Программу из примера 19.10 изменили. Сформулируйте задачу, которая решается с помощью данной программы. var i,k,n,z: integer; begin write(ꞌВведите n = ꞌ); read(n); write(ꞌВведите i = ꞌ); read(i); k:=0; while n > 0 do begin z : = n mod 10; //Текущая цифра k : = k + 1; if k = i then writeln(ꞌВ разряде ꞌ, i, ꞌ стоит цифра ꞌ, z); N : = n div 10; //Уменьшение числа в 10 раз end; if i > k then writeln(ꞌВ числе ꞌ, k, ꞌ цифр, в разряде ꞌ, i, ꞌ нет цифрꞌ) else writeln(ꞌВ числе ꞌ, k, ꞌ цифрꞌ); end.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

ответ к заданию приложен