{$APPTYPE CONSOLE} Var A:integer; begin Write('Введите целое число: ');ReadLn(A); Write('Вторая цифра этого числа: ',(Abs(A) div 10) mod 10); ReadLn end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
