Напишите программу,которая вводит четырехзначное число и вырезает из него вторую цифру

Напишите программу,которая вводит четырехзначное число и вырезает из него вторую цифру
Гость
Ответ(ы) на вопрос:
Гость
program _1; var a,b,c:integer; begin readln(a); b:=a mod 100; c:=a div 1000; a:=c*100+b; writeln(a); end. Буду благодарен за "Лучший ответ"
Не нашли ответ?
Ответить на вопрос
Похожие вопросы