Программу из примера 19.10 изменили. Сформулируйте задачу, которая решается с помощью данной программы. var i,k,n,z: integer; begin write(ꞌВведите n = ꞌ); read(n

От нашего клиента с логином moEacZ на электронную почту пришел вопрос: "Программу из примера 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." это здание мы отнесли к разделу ЕГЭ (школьный). Так как клиент является зарегистрированным пользователем нашего сайта, то мы бесплатно предоставим ответ.

ЕГЭ (школьный) - довольно сложный раздел, здесь действительно попадаются вопросы, которые даже у специалиста с законченным высшим образованием поставят в тупик при подготовке правильного ответа. Но мы известны тем, что сложности нас не останавливают, а наоборот развивают и расширяют наши знания.

Вы спрашивали Программу из примера 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.? - отвечаем: