Вводится произвольное четырёхзначное число вывести на экран вторую и четвёртую цифру

Вводится произвольное четырёхзначное число вывести на экран вторую и четвёртую цифру этого числа
К примеру: при вводе числа 5378, на экран выводят число 38
Эту прогу надобно сделать на паскаль

Задать свой вопрос
1 ответ

var a, b, c: integer;

begin

readln(a);

b:=(a div 100)-(a div 1000)*10;

c:=a mod 10;

writeln(b, c);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт