Question

Запросить с клавиатуры целое 8-значное число начинающее двойкой и напечатать его третью цифру. Если вводится не то число , то сообщить об этом и повторить ввод

Answer 1

// PascalABC.NET 3.0, сборка 1111
var
  n:longint;
  b:boolean;
begin
  repeat
    Write('Введите восьмизначное число, начинающееся с 2: ');
    Read(n);
    b:=(n>=20000000) and (n<=29999999);
    if not b then Writeln('Ввод неверен')
  until b;
  Writeln('Третья цифра числа равна ', (n div 100000) mod 10)
end.