Напишите программу,которая вводит четырехзначное число и вырезает из него вторую цифру(на

Напишите программку,которая вводит четырехзначное число и вырезает из него вторую цифру(на языке паскаль)

Задать свой вопрос
Альбина Попочкина
устраняет цифру?
Кира Штейнруд
да
1 ответ
Program chisla;
var a:integer;
begin
Write('Введите четырехзначное число: ');
read(a);
if (alt;=9999) and (agt;=1000) then
begin
Writeln('2-ая цифра ',a div 100 mod 10);
end
else
Writeln('Это не четырехзначное число');
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт