Question

Помогите, пожалуйста!
Напишите программу, которая предусматривает ввод с клавиатуры четырехзначного числа, как целого (Integer), и выводит его третью и вторую цифры. Используйте операции целочисленного деления div и нахождения остатка – mod.
Спасибо!

Answer 1

program aaa;
var
   a:integer;
begin
   readln(a);
   writeln('Вторая цифра в числе - ',(a div 100) mod 10);
   writeln('Третья цифра в числе - ',(a div 10) mod 10); 
end.