Question

Помогите с Паскалем! Не понимаю..

Answer 1

var

a : longint;

begin

readln(a);

write((a div 100)mod 10);

end.

Answer 2

Ответ:

Объяснение:

var

a, b: Integer;

begin

WriteLn('Введите число: ');

read(a);

b := ((a mod 1000) div 100);

writeln('К разряду сотен относится цифра: ', b);

end.