Написать поограмму в pascal abc. Дано 5 значное число выделить 2,3,4

Написать поограмму в pascal abc. Дано 5 значное число выделить 2,3,4 цифру и узнать является нечетным. зарание спасибо.

Задать свой вопрос
1 ответ
Var a:integer;
b:boolean;
begin
readln(a);
writeln(a div 10 mod 1000);
if a mod 2 lt;gt; 0 then b:=true;
writeln(b);
end.
Дмитрий Кунышев
блин чувак ты меня спасаешь. спасибо тебе огромное
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт