Запросить с клавиатуры целое 8-значное число начинающее двойкой и напечатать его третью цифру. Если вводится не то число , то сообщить об этом и повторить ввод
// 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
