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.

Answer 2

Конечно, вот готовый код на языке Python:

pythonCopy code
while True:
    num = input("Введите целое 8-значное число, начинающееся с двойки: ")
    if len(num) != 8 or num[0] != '2' or not num.isdigit():
        print("Вы ввели неверное число. Попробуйте снова.")
        continue
    else:
        print("Третья цифра введенного числа: ", num[2])
        break

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