Question

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

Answer 1

program raf105;

var

 n, number: integer;

begin

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

 readln(n);

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

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

end.

PascalABC