Помогите, пожалуйста!!! Только необходимо непременно чтобы в программке было divСоставить

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

Задать свой вопрос
Netrebskij Arsenij
Сколько чисел надобно запрашивать?
Valerij Parcij
любое трёхзначное число
Алина Топал
Некоторое количество - это сколько?
Zhitnikov Sergej
2или3
Драхлис Алиса
Например 999 и 100
1 ответ
Var i,k:integer;
begin
for i:=1 to 10 do
begin
Write('Введите трёхзначное число: ');
ReadLn(k);
WriteLn(k mod 100 div 10)
end;
end.
Злата
Спасибо громадное!!!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт