Question

Помогите, пожалуйста!!! Только нужно обязательно чтобы в программе было «div»
Составить программу на языке Паскаль, которая запрашивает у пользователя некоторое количество трехзначных чисел и выводит на экран цифру, находящуюся в середине каждого полученного числа.
Не использовать: const, count

Answer 1

var i,k:integer;
begin
for i:=1 to 10 do
begin
Write('Введите трёхзначное число: ');
ReadLn(k);
WriteLn(k mod 100 div 10)
end;
end.