На Pascal. С клавиатуры вводится натуральное чётное число n, не превосходящее 180. Определите n-ую цифру в ряду: 1011121314...9899. В данном ряду подряд выписаны все двузначные числа. На экран вывести одно число - искомую цифру.

Ответ

Автор - raf1O5

program raf105;

var

n, number: integer;

begin

write('Введите чётное n: ');

readln(n);

number:= (n-2) div 2 mod 10;

writeln('Искомая цифра: ',number);

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.