Дано трехзначное число найти число десятков в нем

Дано трехзначное число найти число десятков в нем
Гость
Ответ(ы) на вопрос:
Гость
Var n,a;integer; begin  assign(input,'input.txt');reset(input); assign(output,'output.txt');rewrite(output); read(n); a:=(n mod 100) div 10; write(a); close(input); close(output); end. задачу написал на языке паскаль
Не нашли ответ?
Ответить на вопрос
Похожие вопросы